Keskustelu: Ohjelmointikysymykset: C, VBA: [vba] funktiokutsussa ongelmia

On se niin ihanaa kun excelissä parametrit erotetaan yhdellä merkillä ja makroissa eri merkillä. Kuinkas tämän ongelman kiertäisi?

result = "LOOKUP(""" + DColumn + """,$F$5:$N$5," + "F" + CStr(cell.row) + ":" + "N" + CStr(cell.row) + ")"
        mysheet.Cells(cell.row, 25).Formula = "=" + result

Tuossa siis koodi mitä yritän saada aikaan. Kiinnittäkää huomiota , merkkeihin ennen $F$5 kohtaa ja senjälkeen. Jos laitan näin niin makro kyllä ajaa mutta jää tyhjäksi. Jos otan result tekstin tuloksen(LOOKUP("V201E",$F$5:$N$5,F302:N302) ja vien sen exceliin ja muutan pilkut ; merkkeihin ja homma toimii. Eli ongelma helppo korjata. , ; merkeiksi makrossa ja homma toimii. Vai? Paitsi että sitten tulee runtime error 1004:sta kun yrittää syöttää tekstiä solun kaavaksi!

Mites tämän pystyisi kiertämään? Kai siihen JOKIN keino on?

Hei,

itselläni tämä toimi ainakin.

Sub test()
rivi = 6
Dcolumn = "V201E"
result = "LOOKUP(""" + Dcolumn + """,$F$5:$N$5," + "F" + CStr(rivi) + ":" + "N" + CStr(rivi) + ")"
      ActiveSheet.Cells(rivi, 2).Formula = "=" + result
End Sub