با سلام
فایل پیوست را ملاحظه بفرمایید
با سلام
فایل پیوست را ملاحظه بفرمایید
ویرایش توسط iranweld : 2015/08/31 در ساعت 11:20
سلام
استاد عزيز ممنون از زحمتي كه كشيديد
خدا آقا كوچولوتون رو براتون سلامت نگه بداره
يه سوال ديگه داشتم
ميشه ماكرو تكراري بودن شماره رو گير نده و جلوگيري نكنه
ضمنا اين كنترل تكراري بودن رو از كجا اضافه فرموديد؟ توي ديتا وليديشن كه نبود! هر چقد گشتم پيداش نكردم
با سلام
در قسمت کدهای ویژوال بیسیک اکسل اضافه شده است.
در فایل جدید در صورت تکراری بودن شماره به شما پیغام میدهد و ثبت نیز مینماید
کد PHP:
Sub test()
Z = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
Z = Z + 1
T = 1
For I = 2 To Z
If Sheet2.Range("A" & I).Value = Sheet1.Range("H20").Value Then
MsgBox ChrW(1575) & ChrW(1740) & ChrW(1606) & ChrW(32) & ChrW(1588) & ChrW(1605) _
& ChrW(1575) & ChrW(1585) & ChrW(1607) & ChrW(32) & ChrW(1575) & ChrW(1586) & _
ChrW(32) & ChrW(1602) & ChrW(1576) & ChrW(1604) & ChrW(32) & ChrW(1605) & _
ChrW(1608) & ChrW(1580) & ChrW(1608) & ChrW(1583) & ChrW(32) & ChrW(1575) & _
ChrW(1587) & ChrW(1578) & ChrW(46)
T = T + 1
Exit For
End If
Next I
If T <> 0 Then
With Sheet2
.Range("A" & Z).Value = Sheet1.Range("H20").Value
.Range("B" & Z).Value = Sheet1.Range("H21").Value
.Range("C" & Z).Value = Sheet1.Range("E23").Value
.Range("D" & Z).Value = Sheet1.Range("B24").Value
.Range("E" & Z).Value = Sheet1.Range("B25").Value
.Range("F" & Z).Value = Sheet1.Range("F25").Value
.Range("G" & Z).Value = Sheet1.Range("B25").Value
End With
End If
End Sub
ویرایش توسط iranweld : 2015/08/31 در ساعت 13:01
سلام مجدد مهندس
با زحمتاي ما
آقا من مجدد به يه مشكلي برخوردم
شماره رو كه پاك مي كنم ديگه ركورد نمي كنه
يه زحمت مي كشين بهم كمك كنين
فايل اصلي رو تو پيوست گذاشتم
يه ماكرو داره براي پرينت گيري از فرم و پاك كردن اطلاعات
ماكروي ثبت و ركورد اطلاعات هم اگه ميشه بياد وسط پرينت و پاك كردن اطلاعات
يعني اول پرينت، بعد ثبت ركورد اطلاعات (بدون شماره، كلا شماره Care نشه بهتره) بعد پاك كردن اطلاعات
ممنون مي شم از زحمتتاتون
با سلام
فایل نهایی را ملاحظه بفرمایید
ویرایش توسط iranweld : 2015/09/01 در ساعت 13:48
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)