Bạn đặt 1 command button, và copy đoạn này vào phần code là okMình có file E gồm nhiều dữ liệu
H muốn in nhưng để thuận tiện mỗi lần kích in thì ô D5 nhẩy 1 giá trị.
để làm thay đổi giá trị trong đó.
Ai có thể giúp mình ko?
Private Sub CommandButton1_Click()
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Dim x As Integer
x = Cells(5, "D").Value
x = x + 1
Cells(5, "D").Value = x
End Sub
Khi nhấn nút, Excel báo lỗi quá nhiều tham số, không chạy được bạn ạ.Bạn đặt 1 command button, và copy đoạn này vào phần code là ok
Mã:Private Sub CommandButton1_Click() ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)" Dim x As Integer x = Cells(5, "D").Value x = x + 1 Cells(5, "D").Value = x End Sub
chỉ cần thay bởi 1 câu lệnh [D5]=[D5]+1 là đủ.Dim x As Integer
x = Cells(5, "D").Value
x = x + 1
Cells(5, "D").Value = x
Sub CommandButton1_Click()
Dim i As Integer, N As Integer
N = Sheets("avc").[C65536].End(xlUp).Offset(-1)
For i = 1 To N
[D5] = i
Sheets("in").PrintOut
Next i
End Sub
Lạ nhỉ, mình chạy thử rồi, ok màKhi nhấn nút, Excel báo lỗi quá nhiều tham số, không chạy được bạn ạ.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2