Excel Forum

Dim lsRow As Long
With Sheets("Sheet1")
lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
End With
ListBox1.RowSource = Sheets("Sheet1").Range("A2:i" & lsRow).Address(external:=True)
With ListBox1
.ListIndex = .ListCount - 1
.Selected(.ListCount - 1) = True
End With
End With
ข้อมูลขึ้นแล ...

Private Sub CommandButton1_Click()
'Other code
Dim ds As Double, ds1 As Variant
Dim dt As Double, dt1 As Variant
ds1 = Split(Me.tbStDate.Text, "/")
dt1 = Split(Me.tbEndDate.Text, "/")
ds = DateSerial(ds1(2), ds1(1), ds1(0))
dt = DateSerial(dt1(2), dt1(1), dt1(0))
With ThisWorkbook.Worksheets ...

ผมต้องการดึงข้อมูลจาก cloumn A:I ครับ โดยให้โชว์ตามวันที่ที่เลือก เช่น เลือกวันที่ 1/2/2019 - 28/2/2019 ก็ให้โชว์เฉพาะในช่วงเวลาที่เลือกครับ cloumn A:I

Private Sub CommandButton1_Click()
'Other code
Dim ds As Double, ds1 As Variant
Dim dt As Double, dt1 As Variant
ds1 = Split(Me.tbStDate.Text, "/")
dt1 = Split(Me.tbEndDate.Text, "/")
ds = DateSerial(ds1(2), ds1(1), ds1(0))
dt = DateSerial(dt1(2), dt1(1), dt1(0))
With ThisWorkbook.Worksheets ...

ได้แล้วครับ แต่ยากให้ข้อมูลที่เลือกโชว์ตรง list box ด้วยอาจารย์มีเว็บหรืออะไรแนะนำไหมครับ

ต้องขอโทษด้วยครับ

จากโค๊ดที่อาจารย์ให้มา จะได้ 2 ครับ
แต่ค่าที่ผมต้องการคือผลรวมของ cloumn i เช่นผมกำหนด
start date 1/2/2019 end date 28/2/2019 stlye KTY11 จำนวนรวมต้องมี 7 แต่ข้อมูลที่มา มีแค่ 2 ครับ

Private Sub CommandButton1_Click()

'Other code
Dim ds As Double, ds1 As Variant, ds2 As String
Dim dt As Double, dt1 As Variant, dt2 As String
ds1 = Split(Me.tbStDate.Text, "/")
dt1 = Split(Me.tbEndDate.Text, "/")
ds = DateSerial(ds1(2), ds1(1), ds1(0))
dt = DateSerial(ds1(2), ds1(1), ds1(0 ...

Private Sub CommandButton1_Click()
On Error Resume Next
Me.lblCountif = Application.WorksheetFunction.CountIfs(ThisWorkbook.Sheets("sheet1").Range("WhatRng"), _
Me.TextBox1, ThisWorkbook.Sheets("sheet1").Range("DateRng"), ">=" & Me.tbStDate, _
ThisWorkbook.Sheets("sheet1").Range("number ...

Private Sub CommandButton1_Click()
On Error Resume Next
Me.lblCountif = Application.WorksheetFunction.CountIfs(ThisWorkbook.Sheets("CountIFS with Date").Range("WhatRng"), _
Me.TextBox1, ThisWorkbook.Sheets("CountIFS with Date").Range("DateRng"), ">=" & Me.tbStDate, _
ThisWorkbook.Sheets("CountIFS ...

ผมลองเลือกหมดแล้วครับแต่ยังไม่หาย แต่ถ้าเป็นตัวเลขก็จะไม่เป้นอะไรครับ

ผมเลือกเป็น Normal text ครับ

หมายถึงตรงไหนหรอครับ

ผมลองใส่แล้วครับ

ผมลองเลือกแล้วครับแต่ก็ยังไม่หาย

ตอนนี้เปิด vba ได้แล้วแต่ปัญหาคือ
เวลาพิมพ์โค๊ดก็จะเป็นสีดำแบบนี้ครับ

ตอนนี้สามารถใช้ได้แล้วครับ คือเป็นที่ผมไปเปลี่ยนภาษาครับ ในคอม มันไม่ตรงกับ excle เลยไม่สามารถทำงานได้ครับ

ทำแล้วครับแต่ก็ยังไม่สามารถทำได้ครับ