انتخاب و جایگزینی در خطوط کد نویسی در VBA

[hamid-nice]

با سلام
فرض کنیم 20 خط کد نوشته ایم می خواهیم از خط 12 از کاراکتر 6 تا18 این خط را انتخاب بشه و در خط 8 بعد از کاراکتر 14 ام از خط 8 ، کپی پیست بشه
( البته به وسیله یک تابع یا کد )
آیا امکان پذیر است ؟
با تشکر

[Abbas Amiri]

با سلام
فرض کنیم 20 خط کد نوشته ایم می خواهیم از خط 12 از کاراکتر 6 تا18 این خط را انتخاب بشه و در خط 8 بعد از کاراکتر 14 ام از خط 8 ، کپی پیست بشه
( البته به وسیله یک تابع یا کد )
آیا امکان پذیر است ؟
با تشکر

از روش زیر استفاده کنید:

Sub ManiplateCodeModule()
Dim strCode As String, strCode2 As String
With VBE.ActiveVBProject.VBComponents("MyModuleName").CodeModule
strCode = .Lines(12, 1)
strCode = Mid(strCode, 6, 12)
strCode2 = .Lines(8, 1)
strCode2 = Left(strCode2, 14) & strCode & Mid(strCode2, 15)
.ReplaceLine 8, strCode2
End With
End Sub

[hamid-nice]

در صورتی که خطوط مطرح شده در یک ماژول نباشند بلکه در VBA برای یک دگمه در یک فرم باشند به جای "MyModuleName").CodeModule ) چه نامی باید گذاشت ؟
با تشکر

[Abbas Amiri]

در صورتی که خطوط مطرح شده در یک ماژول نباشند بلکه در VBA برای یک دگمه در یک فرم باشند به جای "MyModuleName").CodeModule ) چه نامی باید گذاشت ؟
با تشکر

از همان از نام فرم و پیشوند _Form استفاده کنید

"Form_FormName"