Rút gọn công thức (2 người xem)

Elx Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
S

sangatax

Thành viên mới
Tham gia
23/10/07
Bài viết
2
Được thích
0
Mình rất gà trong vba nên có record macro thế này:
Sub Intudong()
'
' Intudong Macro
' In tu dong tu 62 den 69
'
' Keyboard Shortcut: Ctrl+Shift+I
'
ActiveCell.FormulaR1C1 = "GEN-2014007-0062"
Range("M4").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:54").Select
Rows("10:54").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-48
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0063"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-45
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0064"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.ScrollRow = 1
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0065"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
ActiveWindow.SmallScroll Down:=-21
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.SmallScroll Down:=-24
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0066"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-27
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0067"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.ScrollRow = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0068"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
ActiveWindow.SmallScroll Down:=-48
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0069"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
ActiveWindow.SmallScroll Down:=-42
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Nhờ các bác rút gọn công thức giúp. Nếu được thì tạo giúp mình thiết kế form sao cho nhập số chứng từ từ số a đến số b thì nó sẽ tự động truy xuất dữ liệu và in. Cảm ơn nhiều.
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
sangatax đã viết:
Mình rất gà trong vba nên có record macro thế này:
Sub Intudong()
'
' Intudong Macro
' In tu dong tu 62 den 69
'
' Keyboard Shortcut: Ctrl+Shift+I
'
ActiveCell.FormulaR1C1 = "GEN-2014007-0062"
Range("M4").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:54").Select
Rows("10:54").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-48
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0063"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-45
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0064"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.ScrollRow = 1
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0065"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
ActiveWindow.SmallScroll Down:=-21
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.SmallScroll Down:=-24
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0066"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-27
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0067"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
Rows("10:42").EntireRow.AutoFit
ActiveWindow.ScrollRow = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0068"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
ActiveWindow.SmallScroll Down:=-48
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("L4").Select
ActiveCell.FormulaR1C1 = "GEN-2014007-0069"
Range("G3:H3").Select
Application.Run "'Mau In Phieu Khac moi.xltm'!Update"
Rows("10:42").Select
ActiveWindow.SmallScroll Down:=-42
Rows("10:42").EntireRow.AutoFit
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Nhờ các bác rút gọn công thức giúp. Nếu được thì tạo giúp mình thiết kế form sao cho nhập số chứng từ từ số a đến số b thì nó sẽ tự động truy xuất dữ liệu và in. Cảm ơn nhiều.
Nhấp chuột vào đây để mở rộng...
Nhìn code mà giúp được bạn có lẽ chỉ có supper Man thôi !
Up 1 file lên rồi miêu tả công việc nội dung bạn cần giúp đỡ <--- chỉ đơn giản vậy thôi
 
Upvote 0
Nhìn dòng đầu tiên là thấy trớt quớt rồi.
Mã: 
[COLOR=#ff0000]ActiveCell.FormulaR1C1[/COLOR] = "GEN-2014007-0062"
 
Upvote 0
Đây là file truy xuất dữ liệu từ phần mềm kế toán, mình muốn thiết kế form sao cho in được nhiều chứng từ cùng lúc. Nhờ các bác giúp. Cảm ơn
 

File đính kèm

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

P
Lấy dữ liệu, theo điều kiện ngày và cấu trúc 2 bảng tính khác nhau. (2 người xem)
Trả lời
0
Đọc
17
Phamthong0712
P
L
Tính thời gian làm việc thực tế
Trả lời
66
Đọc
14K
YenTon
Y
H
Chia sẻ file in Phiếu điều tra PCGD
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
13
Đọc
637
Phuong7686
P
GPE-Trợ Lý
  • Dán lên cao
[KHẨN] HƯỚNG VỀ ĐỒNG BÀO CHỊU ẢNH HƯỞNG CỦA BÃO YAGI - BẢO YÊN, LÀO CAI (1 người xem)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
91
Đọc
14K
SA_DQ
SA_DQ
SA_DQ
Copilot bình luận về một ván cờ vua
    • Thích
Trả lời
6
Đọc
412
SA_DQ
SA_DQ
92nguyenthanh
  • Question Question
Vba cho file nhập xuất kho
Trả lời
4
Đọc
119
HUONGHCKT
H
C
Fix lỗi Application.InputBox Type:=8
    • Cười
Trả lời
25
Đọc
618
ptm0412
ptm0412
GPE-Trợ Lý
[GPE] TALK SHOW 08: GIẢI QUYẾT VẤN ĐỀ TỐI ƯU HÓA TRONG EXCEL VỚI CÔNG CỤ SOLVER (2 người xem)
    • Thích
    • Cảm ơn
Trả lời
4
Đọc
3K
DuongLeHung
D
Gà Công Nghệ
Chế độ chính sách cho giáo viên mầm non giữ trẻ khuyết tật
Trả lời
1
Đọc
61
vanle33
vanle33
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
22K
dunghtgiga
dunghtgiga
L
  • Question Question
Viết code tìm kiếm các file trong Folder
Trả lời
40
Đọc
12K
lan nguyen0987
L
P
Hyperlink_Cách chuyển cả thư mục và file tổng hợp sang máy khác không bị lỗi
Trả lời
5
Đọc
112
phongvanvu
P
HeSanbi
Tiện ích Web: Tự động nhấn nút "Bỏ qua" quảng cáo Youtube
    • Thích
    • Yêu thích
Trả lời
14
Đọc
1K
ongke0711
ongke0711
ptm0412
Quá tin tưởng vào AI các thể loại (1 người xem)
    • Cười
Trả lời
4
Đọc
223
Maika8008
Maika8008
A
  • Question Question
Không tìm được lỗi code
Trả lời
6
Đọc
161
ptm0412
ptm0412
W
Tham chiếu theo chuỗi ký tự
Trả lời
8
Đọc
317
dungpham01
D
tritv.dad
Lấy dữ liệu từ folder các tờ khai thông quan để theo dõi hiệu suất công việc.
Trả lời
8
Đọc
291
BlueSphere
B
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11 (1 người xem)
    • Thích
Trả lời
0
Đọc
3K
GPE-Trợ Lý
GPE-Trợ Lý
SA_DQ
Xin chúc mừng các thầy cô giáo trên cộng đồng nhân 20/11
    • Thích
    • Yêu thích
Trả lời
1
Đọc
138
BuiQuangThuan
B
M
chuyển đổi số thành chữ
Trả lời
15
Đọc
373
dungpham01
D
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom