کمک برای جایگزینی فرمول در سلول

[كامران]

سلام
من یه برنامه دارم دارم توش یه تغییراتی میدم و میخوام با کمک 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

خط دارای خطا

                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)

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام
نمونه فایل رو بصورت زیپ شده ضمیمه سایت کنید

فعلا این کدها رو تست کنید

Sub tst()

       For r = 22 To 37
            For c = 32 To 266 Step 9
                ad = Cells(r, c)
                f = 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 

[Amir Ghasemiyan]

سلام دوست عزيز

در فرمول هايي كه در vba مينويسيد بايد حتما از ( , ) به عنوان جدا كننده آرگومان ها استفاده كنيد حتي اگر در خود اكسل از ( ; ) استفاده ميكنيد