http://forum.exceliran.com/showthread.php?tid=253&pid=720#pid720
فایل اکسل:
http://www.mediafire.com/file/xqgcmvn28e4ah2k/Repair-Cm.xlsm
توجه: توضیحات این فایل در لینک اول آمده است...
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Private Sub CommandButton1_Click()
Dim month As String
If ComboBox1.Value < 10 Then
month = "0" + CStr(ComboBox1.Value)
Else
month = CStr(ComboBox1.Value)
End If
Connect
strQuery = "Select [Sheet1$A:B].MachineName,[Sheet1$L:N].CMDate From [Sheet1$L:N],[Sheet1$A:B] where [Sheet1$L:N].MachineCode=[Sheet1$A:B].MachineCode and [Sheet1$L:N].CMDate Like '89/" + month + "/%'"
Lbl = "ÎÑÇÈí åÇíí ˜å ÏÑ ãÇå " + month + " ÓÇá 89 ÇÊÝÇÞ ÇÝÊÇÏå ÇÓÊ."
PrintResult strQuery, Lbl
End Sub
هر کدوم ویژگی های خودشو داره. همینو بگم که اکسل خیلی قابلیت های بانک اطلاعات رو نداره. اما در حد پروژه های کوچک حق با شماست هر کاری از اکسل ساخته است.
هر کدوم ویژگی های خودشو داره. همینو بگم که اکسل خیلی قابلیت های بانک اطلاعات رو نداره. اما در حد پروژه های کوچک حق با شماست هر کاری از اکسل ساخته است.
کامنت