با سلام
دو فایل پیوست را در یک مسیر کپی نمایید و book1.xlsx را اجرا نمایید
از قابلیت Event در تهیه فایل استفاده گردید
کد PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
If Range("B1").Value = "yes" Then
TEST1
Else
End If
End If
End Sub
ماکرویی که فراخوانی میگردد
کد PHP:
Public x As Variant
Sub TEST1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
x = ActiveCell.Value
Workbooks.Open fileName:=directory & "BOOK2.XLSX"
Sheets(1).Select
Range("A1").Select
Range("A1").Value = x
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
علاقه مندی ها (Bookmarks)