سلام
من یه برنامه دارم دارم توش یه تغییراتی میدم و میخوام با کمک vba فرمولعای نوشته شده در یکسری از سلولها رو عوض کنم کد زیر رو هم براش نوشتم ولی با وجودی که نتیجه کد رو (همون فرمول نهائی) به دستور msgbox نگاه کردم و کاملآ درسته ولی اکسل در خطی که میگم خطا میده چکار کنم ؟؟؟؟؟؟؟؟
خط دارای خطا
خطهای پایین برا اینه که جدا کننده تو سیستم من بجای کاما - سمی کالنه
من یه برنامه دارم دارم توش یه تغییراتی میدم و میخوام با کمک vba فرمولعای نوشته شده در یکسری از سلولها رو عوض کنم کد زیر رو هم براش نوشتم ولی با وجودی که نتیجه کد رو (همون فرمول نهائی) به دستور msgbox نگاه کردم و کاملآ درسته ولی اکسل در خطی که میگم خطا میده چکار کنم ؟؟؟؟؟؟؟؟
کد:
Sub tst()
For r = 22 To 37
For c = 32 To 266 Step 9
ad = Cells(r, c).Address
f = Range(ad).Formula
f = Right(f, Len(f) - 1)
fn = "=IF(" & f & "=" & Chr(34) & Chr(34) & ";0;" & f & ")"
f1 = InStr(1, fn, ",")
fn = Left(fn, f1 - 1) & ";" & Right(fn, Len(fn) - f1)
f1 = InStr(1, fn, ",")
fn = Left(fn, f1 - 1) & ";" & Right(fn, Len(fn) - f1)
MsgBox fn
Range(ad).Formula = fn
Next c
Next r
End Sub
خط دارای خطا
کد PHP:
Range(ad).Formula = fn
کد:
f1 = InStr(1, fn, ",")
fn = Left(fn, f1 - 1) & ";" & Right(fn, Len(fn) - f1)
f1 = InStr(1, fn, ",")
fn = Left(fn, f1 - 1) & ";" & Right(fn, Len(fn) - f1)
کامنت