Lấy giá trị ComboBox làm tên Sheets để tham chiếu

Liên hệ QC
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
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

dangvandang
  • Question Question
Chia sẻ tích hợp trí tuệ nhân tạo (AI) vào excel
    • Thích
Trả lời
8
Đọc
2K
dangvandang
dangvandang
ankhanh2k2
sắp xếp dữ liệu chấm công
Trả lời
4
Đọc
61
DeTong
D
HeSanbi
  • Question Question
Công cụ tạo và chỉnh sửa Ribbon ngay trên Excel (Bản Việt hóa)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
10
Đọc
6K
HeSanbi
HeSanbi
S
  • Question Question
Nhờ Mọi người giúp đỡ gộp nhiều dòng thành 1 dòng nhiều cột trong Power Query.
Trả lời
2
Đọc
68
SteveNguyen1991
S
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
Trả lời
0
Đọc
34
PhanTuHuong
PhanTuHuong
N
  • Question Question
Xin code link dữ liệu VBA ạ !
Trả lời
1
Đọc
49
BuiQuangThuan
B
Đỗ Tú Anh
♪♫♪ ~ Thư Giãn Với Âm Nhạc ~ ♫♪♫
    • Thích
21 22 23
Trả lời
446
Đọc
11K
SA_DQ
SA_DQ
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
    • Thích
Trả lời
7
Đọc
364
trung_bhxh
T
toanthinh
Công thức tính tuổi âm lịch
Trả lời
3
Đọc
81
toanthinh
toanthinh
S
Cần hỗ trợ xử lý hiện ngày sản phẩm bằng VBA
Trả lời
0
Đọc
45
sonminhtran
S
nghiahandsome1995
  • Question Question
in đậm chuỗi văn bản bằng excel
Trả lời
7
Đọc
149
HeSanbi
HeSanbi
GPE-Trợ Lý
[GPE] TALK SHOW EXCEL TRONG SẢN XUẤT
    • Thích
Trả lời
2
Đọc
722
GPE-Trợ Lý
GPE-Trợ Lý
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2 3
Trả lời
40
Đọc
3K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
  • Question Question
Mong mọi người giúp đỡ em trường hợp này với ạ.
Trả lời
1
Đọc
106
thanhduybg92
T
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
    • Thích
Trả lời
1
Đọc
56
vn72259
V
giaiphap
Add-Ins cho Excel 2007 -2016 32bit và 64bit
    • Thích
    • Yêu thích
    • Ngạc nhiên
24 25 26
Trả lời
512
Đọc
192K
vn72259
V
HeSanbi
  • Đã giải quyết
ZaloExcel v2.94: Gửi tin nhắn, hình ảnh, bảng, biểu đồ, tập tin, tạo nhóm, thu thập tin nhắn
    • Thích
    • Cảm ơn
    • Yêu thích
2 3
Trả lời
56
Đọc
15K
HeSanbi
HeSanbi
quyenpv
Hỗ trợ công thức dò tìn Index, Match trong bảng dò tìm kết quả
Trả lời
5
Đọc
103
quyenpv
quyenpv
B
Suy nghĩ của tui
    • Thích
2 3 4
Trả lời
60
Đọc
7K
SA_DQ
SA_DQ
H
In các trang theo điều kiện
Trả lời
3
Đọc
61
HUONGHCKT
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW EXCEL TRONG SẢN XUẤT
Back
Top Bottom