پرسش خواندن از فایل اکسل

[Mela68]

با سلام و احترام
دوستان دوتا مسئله
۱- من میخوام با کد نویسی وارد یه فایل اکسل بشم و مثلا مقدار یک سلول رو چک کنم چطور ممکنه؟
۲- میخوام به محض وارد شدن به فایلم، یه شرط بذارم که مقدار یه سلول رو چک کنه و مقایسه کنه با اون مقدار سلولی که از اون فایل خونده و بسته به مقدار اون سلول، یک دکمه (Commandbutton) رو فعال یا غیر فعال کنه ( Enable=True/False) . داخل قسمت workbook_open نمیتونم به دکمه دسترسی پیداکنم
ممنون

[kazamie]

با سلام و احترام
دوستان دوتا مسئله
۱- من میخوام با کد نویسی وارد یه فایل اکسل بشم و مثلا مقدار یک سلول رو چک کنم چطور ممکنه؟
۲- میخوام به محض وارد شدن به فایلم، یه شرط بذارم که مقدار یه سلول رو چک کنه و مقایسه کنه با اون مقدار سلولی که از اون فایل خونده و بسته به مقدار اون سلول، یک دکمه (Commandbutton) رو فعال یا غیر فعال کنه ( Enable=True/False) . داخل قسمت workbook_open نمیتونم به دکمه دسترسی پیداکنم
ممنون

سلام
من این دو تا کد به ذهنم رسید
کد اول در فایل اول

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Workbooks("Book1.xlsm").Sheets("Sheets1").Range("A1").Select
End Sub

کد دوم در فایل دوم

Sub Worksheet_Activate()
If Range("A1") > 5 Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If

End Sub

[Mela68]

سلام
من این دو تا کد به ذهنم رسید
کد اول در فایل اول

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Workbooks("Book1.xlsm").Sheets("Sheets1").Range("A1").Select
End Sub

کد دوم در فایل دوم

Sub Worksheet_Activate()
If Range("A1") > 5 Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If

End Sub

ممنون ولی هیچکدوم اونی نبود که من میخوام 🙂

[Mela68]

با سلام و احترام
دوستان دوتا مسئله
۱- من میخوام با کد نویسی وارد یه فایل اکسل بشم و مثلا مقدار یک سلول رو چک کنم چطور ممکنه؟
۲- میخوام به محض وارد شدن به فایلم، یه شرط بذارم که مقدار یه سلول رو چک کنه و مقایسه کنه با اون مقدار سلولی که از اون فایل خونده و بسته به مقدار اون سلول، یک دکمه (Commandbutton) رو فعال یا غیر فعال کنه ( Enable=True/False) . داخل قسمت workbook_open نمیتونم به دکمه دسترسی پیداکنم
ممنون

دوستان اساتید کسی راه حل نمیده؟؟؟؟؟

[Ali Parsaei]

سلام،
مي تونيد با اين کد وقتي فايلتان باز مي شود اتوماتيک يک فايل اصلي ديگر را باز کنيد و مقداري در آن فايل اصلي را برداشته و در فايل دوم کپي کنيد، بعد با اون مقدار کپي شده هر کاري خواستيد بکنيد. البته اگر خواستيد قسمت آخر کد را خودتان به نحوي تغيير دهيد که در همان لحظه کاري که مايل هستيد را انجام دهد
فرض کرده ام که فايل اصلي به نام ASL و با پسوند XLSX و در همين پوشه فايل دوم است و مقدار مربوطه در خانه A1 شيت يک آن است و سپس در خانه A1 شيت يک فايل دوم کپي مي شود

Private Sub Workbook_Open()
Workbooks.Open Filename:=ThisWorkbook.Path & "/" & "ASL.XLSX"
ActiveWorkbook.Sheets("sheet1").Select
Dim C As String
C = Range("A1").Value
ActiveWorkbook.Close
Sheet1.Range("A1").Value = C
End Sub 

[Mela68]

ممنون دوست عزیز 🙏🙏🙏
میتونین درخصوص کپی کامل یه فایل اکسل با تمام کد نویسی و همه چیزش راهنمایی کنید؟
راستش یه دفترچه تلفن ساختم و میخوام همه روی شبکه استفاده ش کنن. میخوام بروزرسانی براش بذارم که نخوام هردفعه هی فایلو برا همه کپی کنم. میخوام تا فایل رو باز کردن اگه بروزرسانی موجود بود خودش بروز بشه