درخواست آموزش شماره دهی خودکار در اکسل

[raid]

آموزش شماره دهی خودکار در اکسل (http://forum.exceliran.com/showthread.php?t=1616) مثل ورد دوستان اگه* ممكنه* این اموزش بزارید ممنون

[~M*E*H*D*I~]

آموزش شماره دهی خودکار در اکسل (http://forum.exceliran.com/showthread.php?t=1616) مثل ورد دوستان اگه* ممكنه* این اموزش بزارید ممنون



منظورت از شماره دهی خودکار چیه لطفا توضیح بیشتر:)

[raid]

دوست عزیز وقتی enter زدم خودش شماره ایجاد كنه

[حسام بحرانی]

دوست عزیز وقتی enter زدم خودش شماره ایجاد كنه

با سلام ، دوست عزیز از این فرمول استفاده نمایید :

=IF(B2="";"";SUBTOTAL(103;$B$2:B2))
برای درک بهتر فرمول ، به این فایل نگاه کنید ؛
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ (http://forum.exceliran.com/member.php?u=10018)

[mohebbi]

منم يو سوال شبيه همين سوال دارم
منتهي يكم متفاوت تر
من مي خوام هر دفعه كه اكسل رو باز مي كنم كانتر يه شماره اضافه كنه
به نظرتون مي شه؟

[generalsamad]

با سلام
بله با vba میشه
جناب آقای میثم ترابی misammisam (http://forum.exceliran.com/member.php/14092-misammisam)یک فایل توی انجمن قرار دادند که اینکار رو انجام میده
اگه لینک صفحش رو پیدا کردم قرار خواهم داد

[misammisam]

منم يو سوال شبيه همين سوال دارم
منتهي يكم متفاوت تر
من مي خوام هر دفعه كه اكسل رو باز مي كنم كانتر يه شماره اضافه كنه
به نظرتون مي شه؟
سلام
باید دید به چه منظوری میخواید اینکارو انجام بدید ، اگه فقط میخواید یه شماره انداز ساده باشه میتونید از فرمول زیر استفاده کنید ( فایل پیوست ) .


Private Sub Workbook_Open()
Sheet1.Range("a1").Value = Sheet1.Range("a1").Value + 1
End Sub

اگرم میخواید یه چیزی شبیه به قفل نرم افزاری درست کنید باید از رجیستری سیستم کمک بگیرید ، از این پست میتونید استفاده کنید .
قرار دادن تاریخ انقضاء یا شمارشگر پایان اعتبار برای فایل اکسل بوسیله vb ( در رجیستری سیستم ) (http://forum.exceliran.com/showthread.php/6442-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%A7%D9%86%D9%82%D8%B6%D8%A7%D8%A1-%DB%8C%D8%A7-%D8%B4%D9%85%D8%A7%D8%B1%D8%B4%DA%AF%D8%B1-%D9%BE%D8%A7%DB%8C%D8%A7%D9%86-%D8%A7%D8%B9%D8%AA%D8%A8%D8%A7%D8%B1-%D8%A8%D8%B1%D8%A7%DB%8C-%D9%81%D8%A7%DB%8C%D9%84-%D8%A7%DA%A9%D8%B3%D9%84-%D8%A8%D9%88%D8%B3%DB%8C%D9%84%D9%87-vb-%28-%D8%AF%D8%B1-%D8%B1%D8%AC%DB%8C%D8%B3%D8%AA%D8%B1%DB%8C-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%29)

[mohebbi]

سلام دوستان عزيز
با تشكر از زحماتتون
يه سوال
چطوري مي تونم تو يه شيتي اطلاعات وارد شده در شيت ديگه رو ركورد كنم
يعني به ازاي هر بار تكميل شيت1، يك ركورد در شيت 2 براش ايجاد بشه
براش ماكرو هم نوشتم ولي جواب نداد.
يعني بلد نيستم بهش بگم برا ركورد بعدي بره به سطر بعدي و اطلاعات رو اونجا ركورد كنه
ممنون ميشم

[iranweld]

با سلام

آخرین سطر در شیت را میتوانید از فرمول زیر بدست آورید


Z = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

این دستور آخرین ردیف ستون A در شیت 2 را برای شما بدست میاره

اگر بیشتر در مورد خواسته خود توضیح دهید بهتر میتوان به نتیجه رسید
آیا با هر بار تغییر در یک سل در شیت اول دقیقا بایستی در شیت دوم در همان سلول اعمال بشه یا باید در یک سلول جدید در آخر شیت دوم لحاظ بشه؟

[mohebbi]

ممنون ازتون بابت راهنمايي
منظور من اينه كه به ازاي هر فرم اصلي كه تكميل مي شه بر اساس Button يا هر امكان ديگه اي يك سري از اطلاعات كه در شيت Data نوشته شده ركورد بشه و دفعه ي بعد ركورد بعدي
در واقع در شيت ديتا، كل اطلاعات و سوابق رو بشه ديد.
فايل رو هم اتچ كردم
منتها تو فرمت عادي
چون فرمت ماكرو دار رو قبول نمي كرد سايت

ممنون مي شم باز راهنماييم بفرماييد.

[iranweld]

با سلام

فایل پیوست را ملاحظه بفرمایید

[mohebbi]

سلام
استاد عزيز ممنون از زحمتي كه كشيديد
خدا آقا كوچولوتون رو براتون سلامت نگه بداره
يه سوال ديگه داشتم
ميشه ماكرو تكراري بودن شماره رو گير نده و جلوگيري نكنه
ضمنا اين كنترل تكراري بودن رو از كجا اضافه فرموديد؟ توي ديتا وليديشن كه نبود! هر چقد گشتم پيداش نكردم

[iranweld]

با سلام

در قسمت کدهای ویژوال بیسیک اکسل اضافه شده است.

در فایل جدید در صورت تکراری بودن شماره به شما پیغام میدهد و ثبت نیز مینماید


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

[mohebbi]

سلام مجدد مهندس
با زحمتاي ما
آقا من مجدد به يه مشكلي برخوردم
شماره رو كه پاك مي كنم ديگه ركورد نمي كنه
يه زحمت مي كشين بهم كمك كنين
فايل اصلي رو تو پيوست گذاشتم
يه ماكرو داره براي پرينت گيري از فرم و پاك كردن اطلاعات
ماكروي ثبت و ركورد اطلاعات هم اگه ميشه بياد وسط پرينت و پاك كردن اطلاعات
يعني اول پرينت، بعد ثبت ركورد اطلاعات (بدون شماره، كلا شماره Care نشه بهتره) بعد پاك كردن اطلاعات
ممنون مي شم از زحمتتاتون

[iranweld]

با سلام

فایل نهایی را ملاحظه بفرمایید