Lấy giá trị ComboBox làm tên Sheets để tham chiếu (1 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)
vova2209

vova2209

Thành viên tích cực
Tham gia
5/4/17
Bài viết
835
Được thích
112
Giới tính
Nam
Nghề nghiệp
Đường bộ
Mã: 
Private Sub OkInBB_CDKL_Click()
    Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
    Dim i As Long
    Dim shNameKL, shNameCD As String
    Dim Rng As Range, DK As Long

    Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
        inStart = TextBox1.Value
        inFinish = TextBox2.Value
        For i = inStart To inFinish
        DK = Application.WorksheetFunction.VLookup(i, Rng, 4, False)
        If DK > 0 Then GoTo Tiep
            Sheets("BBan").Range("AZ1").Value = i
            Sheets(ComboBox1).Select
            Sheets(ComboBox1).Range("AZ1").Value = i
            Sheets(shNameCD).Select
            Sheets(shNameCD).Range("AZ1").Value = i
        Next i
    Unload Me
End Sub
Chào anh chị! em có muốn hỏi ComboBox1, ComboBox2 chọn tên ở form.
Muốn duyệt ComboBox1 thành tên sheets phải sửa như nào.
Sheets(ComboBox1).Select
Sheets(ComboBox1).Range("AZ1").Value = i
. Em xin cảm ơn

Untitled.png
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
vova2209 đã viết:
Mã: 
Private Sub OkInBB_CDKL_Click()
    Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
    Dim i As Long
    Dim shNameKL, shNameCD As String
    Dim Rng As Range, DK As Long

    Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
        inStart = TextBox1.Value
        inFinish = TextBox2.Value
        For i = inStart To inFinish
        DK = Application.WorksheetFunction.VLookup(i, Rng, 4, False)
        If DK > 0 Then GoTo Tiep
            Sheets("BBan").Range("AZ1").Value = i
            Sheets(ComboBox1).Select
            Sheets(ComboBox1).Range("AZ1").Value = i
            Sheets(shNameCD).Select
            Sheets(shNameCD).Range("AZ1").Value = i
        Next i
    Unload Me
End Sub
Chào anh chị! em có muốn hỏi ComboBox1, ComboBox2 chọn tên ở form.
Muốn duyệt ComboBox1 thành tên sheets phải sửa như nào.
Sheets(ComboBox1).Select
Sheets(ComboBox1).Range("AZ1").Value = i
. Em xin cảm ơn

View attachment 200209
Nhấp chuột vào đây để mở rộng...
combobox1.text
 
Upvote 0
vova2209 đã viết:
Mã: 
Private Sub OkInBB_CDKL_Click()
    Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
    Dim i As Long
    Dim shNameKL, shNameCD As String
    Dim Rng As Range, DK As Long

    Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
        inStart = TextBox1.Value
        inFinish = TextBox2.Value
        For i = inStart To inFinish
        DK = Application.WorksheetFunction.VLookup(i, Rng, 4, False)
        If DK > 0 Then GoTo Tiep
            Sheets("BBan").Range("AZ1").Value = i
            Sheets(ComboBox1).Select
            Sheets(ComboBox1).Range("AZ1").Value = i
            Sheets(shNameCD).Select
            Sheets(shNameCD).Range("AZ1").Value = i
        Next i
    Unload Me
End Sub
Chào anh chị! em có muốn hỏi ComboBox1, ComboBox2 chọn tên ở form.
Muốn duyệt ComboBox1 thành tên sheets phải sửa như nào.
Sheets(ComboBox1).Select
Sheets(ComboBox1).Range("AZ1").Value = i
. Em xin cảm ơn

View attachment 200209
Nhấp chuột vào đây để mở rộng...
Cụ thể là bạn muốn hỏi về vấn đề gì? Bạn muốn dùng giá trị của ComboBox để làm tên sheet và tham chiếu đến sheet đó?
Nếu đúng là vậy sao bạn không ghi tiêu đề cho rõ nghĩa? Chung chung kiểu này chẳng hiểu đang hỏi cái gì cả
 
Upvote 0
ndu96081631 đã viết:
Cụ thể là bạn muốn hỏi về vấn đề gì? Bạn muốn dùng giá trị của ComboBox để làm tên sheet và tham chiếu đến sheet đó?
Nếu đúng là vậy sao bạn không ghi tiêu đề cho rõ nghĩa? Chung chung kiểu này chẳng hiểu đang hỏi cái gì cả
Nhấp chuột vào đây để mở rộng...
Dạ vâng đúng rồi anh ạ! em muốn khi chọn tên sẽ ứng với tên sheets để tham chiếu sang ạ
 
Upvote 0
vova2209 đã viết:
Dạ vâng đúng rồi anh ạ! em muốn khi chọn tên sẽ ứng với tên sheets để tham chiếu sang ạ
Nhấp chuột vào đây để mở rộng...
Vậy bạn tự sửa tiêu đề lại đi (cho quen!)
Gợi ý: "Lấy giá trị ComboBox làm tên sheet để tham chiếu"
(Cứ lâu lâu lại "Hỏi về ComboBox", "Hỏi về CheckBox", "Hỏi về VBA", "Hỏi về Excel" và "Hỏi về... mọi thứ" thì thua luôn)
 
Upvote 0
ndu96081631 đã viết:
Vậy bạn tự sửa tiêu đề lại đi (cho quen!)
Gợi ý: "Lấy giá trị ComboBox làm tên sheet để tham chiếu"
(Cứ lâu lâu lại "Hỏi về ComboBox", "Hỏi về CheckBox", "Hỏi về VBA", "Hỏi về Excel" và "Hỏi về... mọi thứ" thì thua luôn)
Nhấp chuột vào đây để mở rộng...
Đoạn code trên phải sửa như nào anh giúp em.
Sheets(ComboBox1).Select
Sheets(ComboBox1).Range("AZ1").Value = i
 
Upvote 0
Upvote 0
ndu96081631 đã viết:
Bài 4 người ta đã hướng dẫn rõ ràng

Sao bạn lại không làm được?
Nhấp chuột vào đây để mở rộng...
Cái này là do làm biếng gõ để người khác gõ xong up lên cứ việc tải về và dùng thôi anh. Tôi thấy thành viên này viết code và thiết kế giao diện ghê lắm vậy mà ...
 
Upvote 0
dùng thuộc tính text sẽ có lúc gẫy lỗi. đã từng vướng phải trường hợp dữ liệu nạp vào combo
box nhưng khi đọc lại thì bị thay đổi. đời muôn nẻo lắc léo
 
Upvote 0
truongvu317 đã viết:
dùng thuộc tính text sẽ có lúc gẫy lỗi. đã từng vướng phải trường hợp dữ liệu nạp vào combo
box nhưng khi đọc lại thì bị thay đổi. đời muôn nẻo lắc léo
Nhấp chuột vào đây để mở rộng...
Bạn cụ thể trường hợp của bạn được không, để mình còn tránh và nếu ko dùng .text thì dùng thuộc tính gì bạn?
 
Upvote 0
giaiphap đã viết:
Cái này là do làm biếng gõ để người khác gõ xong up lên cứ việc tải về và dùng thôi anh. Tôi thấy thành viên này viết code và thiết kế giao diện ghê lắm vậy mà ...
Nhấp chuột vào đây để mở rộng...
Không phải em lười đâu, mà là phần ComboBox mới tìm hiểu nên chưa biết nhờ các a giúp. Em đánh vào như này bị báo lỗi. em nhìn như sai thì phải
Sheets(ComboBox1.text ).Select
Sheets(ComboBox1.text ).Range("AZ1").Value = i
Mã: 
Sub UserForm_Initialize()
  ComboBox1.List = Array("1.KL V", "1.KL S", "KLL-K95")
  ComboBox2.List = Array("2.Cao Do", "2.CDK95", "CDL-K95", "CDTN")
End Sub

'CODE IN BIEN BAN + KHÔI' LUONG + CAO DÔ
Private Sub OkInBB_CDKL_Click()
    Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
    Dim i As Long
    Dim shNameKL, shNameCD As String
    'Dim ComboBox1, ComboBox2 As Worksheet
    Dim Rng As Range, DK As Long

    Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
        inStart = TextBox1.Value
        inFinish = TextBox2.Value

        For i = inStart To inFinish
        DK = Application.WorksheetFunction.VLookup(i, Rng, 4, False)
        If DK > 0 Then GoTo Tiep
            Sheets("BBan").Range("AZ1").Value = i
            
            ComboBox1.Text.Select
            Sheets(ComboBox1.Text).Range("AZ1").Text = i
            
            Sheets(shNameCD).Select
            Sheets(shNameCD).Range("AZ1").Value = i
        Next i
    Unload Me
End Sub
 
Upvote 0
vova2209 đã viết:
Không phải em lười đâu, mà là phần ComboBox mới tìm hiểu nên chưa biết nhờ các a giúp. Em đánh vào như này bị báo lỗi. em nhìn như sai thì phải
Sheets(ComboBox1.text ).Select
Sheets(ComboBox1.text ).Range("AZ1").Value = i
Mã: 
Sub UserForm_Initialize()
  ComboBox1.List = Array("1.KL V", "1.KL S", "KLL-K95")
  ComboBox2.List = Array("2.Cao Do", "2.CDK95", "CDL-K95", "CDTN")
End Sub

'CODE IN BIEN BAN + KHÔI' LUONG + CAO DÔ
Private Sub OkInBB_CDKL_Click()
    Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
    Dim i As Long
    Dim shNameKL, shNameCD As String
    'Dim ComboBox1, ComboBox2 As Worksheet
    Dim Rng As Range, DK As Long

    Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
        inStart = TextBox1.Value
        inFinish = TextBox2.Value

        For i = inStart To inFinish
        DK = Application.WorksheetFunction.VLookup(i, Rng, 4, False)
        If DK > 0 Then GoTo Tiep
            Sheets("BBan").Range("AZ1").Value = i
           
            ComboBox1.Text.Select
            Sheets(ComboBox1.Text).Range("AZ1").Text = i
           
            Sheets(shNameCD).Select
            Sheets(shNameCD).Range("AZ1").Value = i
        Next i
    Unload Me
End Sub
Nhấp chuột vào đây để mở rộng...
lỗi như thế nào bạn?
thấy code có vấn đề dòng lày:
ComboBox1.Text.Select
xóa ngay dòng này đi
 
Upvote 0

File đính kèm

Upvote 0
vova2209 đã viết:
Mở form chọn In từ 100~110, bên dưới combobox1, combobox2 chọn tên sheets sẽ select qua từng sheets: "1.KL V" >> "2.Cao Do"
View attachment 200236
Nhấp chuột vào đây để mở rộng...
Thế thì các sheet in phải đánh số ở đầu mới có thể chạy theo như thế được. Nếu dữ liệu sheet của bạn có đánh số thì mình sẽ xem, chứ tên sheet lẫn lộn thì e rằng khó.
 
Upvote 0
quanluu1989 đã viết:
Thế thì các sheet in phải đánh số ở đầu mới có thể chạy theo như thế được. Nếu dữ liệu sheet của bạn có đánh số thì mình sẽ xem, chứ tên sheet lẫn lộn thì e rằng khó.
Nhấp chuột vào đây để mở rộng...
mình chỉ cần khi chọn Combobox1 tên sheet (1.KL V) select chạy qua là được
 
Upvote 0
vova2209 đã viết:
Mình muốn code chạy qua từng sheet rồi mới chạy code.
File bên dưới bạn xem thử giúp mình
Nhấp chuột vào đây để mở rộng...
đọ code của bạn có mấy chổ mình không hiểu babj chỉ với:
1.: If DK > 0 Then GoTo Tiep : Tiep này đến đâu vậy
2. Sheets(shNameCD).Select : sheet này mình lấy ở đâu
 
Upvote 0
chisinhvnn đã viết:
đọ code của bạn có mấy chổ mình không hiểu babj chỉ với:
1.: If DK > 0 Then GoTo Tiep : Tiep này đến đâu vậy
2. Sheets(shNameCD).Select : sheet này mình lấy ở đâu
Nhấp chuột vào đây để mở rộng...
Mã: 
Private Sub OkInBB_CDKL_Click()
    Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
    Dim i As Long
    Dim shNameKL, shNameCD As String
    Dim Rng As Range, DK As Long
    
  If ActiveSheet.CodeName = "Sheet22" Then
    On Error Resume Next
    Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
        inStart = TextBox1.Value 'Nêu'ko dùng form > inStart = Application.InputBox("In Tu Biên Ban:")
        inFinish = TextBox2.Value '                  inFinish = Application.InputBox("In Dên' Biên Ban:")
            shNameKL = Sheets("BBan").Range("C1") 'Duyêt sheets lây' tên o? ô cel
            shNameCD = Sheets("BBan").Range("H1")
            
        For i = inStart To inFinish
        DK = Application.WorksheetFunction.VLookup(i, Rng, 4, False)
        If DK > 0 Then GoTo tiep
            Sheets("BBan").Range("AZ1").Value = i
            Sheets("BBan").PrintOut
            
            Sheets(shNameKL).Select
            Sheets(shNameKL).Range("AZ1").Value = i
                Call HidedongProKL
            Sheets(shNameKL).PrintOut
            
            Sheets(shNameCD).Select
            Sheets(shNameCD).Range("AZ1").Value = i
                Call HidedongProCD
            Sheets(shNameCD).PrintOut
tiep:
        Next i
    Unload Me
  Else
        MsgBox "Ban phai chon o* Sheet(BBan)", vbCritical, "In Biên Ban"
  End If
Sheet22.Select
End Sub
Tên sheets đặt ở ô C1: shNameKL = Sheets("BBan").Range("C1"). Giá trị này hay tên sheets đặt ở ô excell C1 có thể thay đổi tên thành sheets khác
 
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

thanhss
Nhờ tìm công thức tính tổng theo hàng có kèm dữ liệu Text (5 người xem)
Trả lời
6
Đọc
35
thanhss
thanhss
befaint
Chia sẻ tâm tư, xả nỗi lòng (3 người xem)
    • Thích
6 7 8
Trả lời
777
Đọc
72K
befaint
befaint
H
  • Question Question
Code Sổ Chi Tiết Tài Khoản (2 người xem)
Trả lời
4
Đọc
125
hieuvietmy2020
H
H
File excel bị lỗi không mở được (3 người xem)
Trả lời
6
Đọc
48
hiep204
H
Nguyễn Duy Tuân
[New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA (1 người xem)
    • Thích
Trả lời
10
Đọc
3K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
A
  • Question Question
Sửa code VBA nhập liệu userform
Trả lời
24
Đọc
982
ongke0711
ongke0711
SA_DQ
Copilot & bài thơ chia bánh do 'Hắn' sáng tác (4 người xem)
Trả lời
2
Đọc
61
SA_DQ
SA_DQ
HeSanbi
  • Đã giải quyết
WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Nguồn cấp FreeMeteo đã dừng cấp dữ liệu lịch sử) (1 người xem)
    • Thích
    • Yêu thích
Trả lời
90
Đọc
25K
dinhhoangcd13
D
T
GẤP: TÌM GIÁ THEO TỪNG KHÁCH
Trả lời
7
Đọc
335
tulipviet
T
D
lấy thẻ kho từ sổ kho nên dùng hàm nào ah (2 người xem)
Trả lời
3
Đọc
82
dankedun
D
L
công thứ tìm giá trị giao hàng với cột
Trả lời
13
Đọc
198
luongcongdua
L
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
552
Đọc
70K
ongke0711
ongke0711
K
Nhờ anh chị làm công thức lọc dữ kiện ngày từ bảng 1 sang rút gọn ngày ở bảng 2.
Trả lời
1
Đọc
107
thanthanhan
thanthanhan
SA_DQ
Tìm số chính phương trong 1 biểu thức cho trước
    • Thích
    • Yêu thích
Trả lời
22
Đọc
355
dungpham01
D
T
TỈNH TỔNG TỪNG Ô THEO ĐIỀU KIỆN
Trả lời
3
Đọc
124
thanthanhan
thanthanhan
8
Tính tổng điểm 3 môn theo tổ hợp xét tuyển
Trả lời
3
Đọc
97
ptm0412
ptm0412
N
  • Question Question
Tool chia băng kết hợp bên ngành tôn
Trả lời
0
Đọc
96
nguyenanhtruong2409
N
S
Chỉnh công thức tính tỷ lệ hoàn thành giúp mình với.
Trả lời
8
Đọc
477
ptm0412
ptm0412
L
Tìm giải pháp trừ lùi nguyên liệu xuất nhập khẩu
Trả lời
9
Đọc
312
luongcongdua
L
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD
    • Thích
Trả lời
31
Đọc
2K
Hoàng Tuấn 868
H
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