پرسش: فرمت ساعت در لیست باکس،مشکل با offset و....
با سلام خدمت اساتید
من به چند تا مشکل توی userform بر خوردم ممنون میشم راهنمایی کنید
1. چیکار کنم توی listbox فرمت ساعت درست نمایش داده بشه
(ستون شماره 8 در لیست باکس)
2. اطلاعات فیلد "شماره فاکتور" از شیت بارگذاری و به ترتیب میشه ،
میخوام وقتی کاربر شماره فاکتور 1 رو انتخاب کرد اطلاعات اون ردیف توی بقیه textbox های userform لود بشه که از این کد استفاده کردم ولی کار نمیکنه :
3. وقتی کاربر توی userform توی فیلد تاریخ ، تاریخی رو وارد مکینه
مثلا: 1397/09/11
توی شیت Data ستون روز ، ماه ؛ سال هر کدوم به ترتیب وارد بشه 11 09 1397
من به چند تا مشکل توی userform بر خوردم ممنون میشم راهنمایی کنید
1. چیکار کنم توی listbox فرمت ساعت درست نمایش داده بشه
(ستون شماره 8 در لیست باکس)
2. اطلاعات فیلد "شماره فاکتور" از شیت بارگذاری و به ترتیب میشه ،
کد PHP:
Dim c As Range
TextBox1.Clear
With Worksheets("Data")
For Each c In .Range(.Range("a2"), .Range("A" & .Rows.Count).End(xlUp))
If c.Value <> vbNullString Then TextBox1.AddItem c.Value
Next c
End With
On Error Resume Next
With Me.TextBox1
For x = LBound(.List) To UBound(.List)
For Y = x To UBound(.List)
If .List(Y, 0) < .List(x, 0) Then
blah = .List(Y, 0)
.List(Y, 0) = .List(x, 0)
.List(x, 0) = blah
End If
Next Y
Next x
End With
کد PHP:
Dim cell As Range
For Each cell In Sheet4.Range("a2", Sheet4.Range("a1500").End(xlUp).Address)
If cell.Value = TextBox1.Value Then
TextBox2 = cell.Offset(0, 1)
TextBox3 = cell.Offset(0, 2)
TextBox4 = cell.Offset(0, 3)
TextBox5 = cell.Offset(0, 4)
TextBox6 = cell.Offset(0, 5)
TextBox7 = cell.Offset(0, 6)
TextBox8 = cell.Offset(0, 7)
End If
Next cell
On Error Resume Next
3. وقتی کاربر توی userform توی فیلد تاریخ ، تاریخی رو وارد مکینه
مثلا: 1397/09/11
توی شیت Data ستون روز ، ماه ؛ سال هر کدوم به ترتیب وارد بشه 11 09 1397