Có thể đặt vòng For...Next cho code sau?

Liên hệ QC
emgaingayngo

emgaingayngo

Thành viên hoạt động
Tham gia
9/2/07
Bài viết
141
Được thích
5
GPE cho hỏi, mình có thể đặt vòng For cho code sau :

PHP: 
Select Case iNumber
    Case 1
    stBo = """" & stBo & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo & dong & "," & stBo & "," & trong & dong
   
    Case 2
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Right(stBo, 2): stBo2 = """" & stBo2 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & dong & "," & stBo1 & "," & trong & dong
    Case 3
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Right(stBo, 2): stBo3 = """" & stBo3 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & dong & "," & stBo1 & "," & trong & dong
        
    Case 4
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Mid(stBo, 7, 2): stBo3 = """" & stBo3 & """"
    stBo4 = Right(stBo, 2): stBo4 = """" & stBo4 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & "," _
        & cauThe & "=" & stBo4 & dong & "," & stBo1 & "," & trong & dong
        
    Case 5
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Mid(stBo, 7, 2): stBo3 = """" & stBo3 & """"
    stBo4 = Mid(stBo, 10, 2): stBo4 = """" & stBo4 & """"
    stBo5 = Right(stBo, 2): stBo5 = """" & stBo5 & """"
     ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & "," _
        & cauThe & "=" & stBo4 & "," _
        & cauThe & "=" & stBo5 & dong & "," & stBo1 & "," & trong & dong
        
    Case 6
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Mid(stBo, 7, 2): stBo3 = """" & stBo3 & """"
    stBo4 = Mid(stBo, 10, 2): stBo4 = """" & stBo4 & """"
    stBo5 = Mid(stBo, 10, 2): stBo5 = """" & stBo5 & """"
    stBo6 = Right(stBo, 2): stBo6 = """" & stBo6 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & "," _
        & cauThe & "=" & stBo4 & "," _
        & cauThe & "=" & stBo5 & "," _
        & cauThe & "=" & stBo6 & dong & "," & stBo1 & "," & trong & dong
End Select
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bạn thử thay bằng đoạn code này xem sao.
Mã: 
Dim i As Integer
Dim strTemp As String
strTemp = "=" & cauIf
For i = 0 To iNumber - 1
    strTemp = strTemp & cauThe & "=" & Mid(strBo, i * 2 + 1, 2) & ","
Next
strTemp = strTemp & dong & "," & Mid(strBo, 1, 2) & "," & trong & dong
ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:=strTemp
 
Upvote 0
rollover79 đã viết:
Bạn thử thay bằng đoạn code này xem sao.
Mã: 
Dim i As Integer
Dim strTemp As String
strTemp = "=" & cauIf
For i = 0 To iNumber - 1
    strTemp = strTemp & cauThe & "=" & Mid(strBo, i * 2 + 1, 2) & ","
Next
[COLOR=blue]strTemp = strTemp & dong & "," & Mid(strBo, 1, 2) & "," & trong & dong[/COLOR]
ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:=strTemp
Nhấp chuột vào đây để mở rộng...

Tại sao có dòng màu xanh vậy bạn? Sao mình không để & trong & dong vào trong dòng ở giữa vòng For luôn :
strTemp = strTemp & cauThe & "=" & Mid(strBo, i * 2 + 1, 2) & "," & trong & dong

Xin nói để bạn rõ hơn, mình muốn tạo 01 Name động có tên là GhepBo có công thứ như sau :
GhepBo = IF(OR(the= stBo1, the= stBo2,....), stBo1, "")
trong đó stBo1, stBo2,.... được phân tích từ bộ số mình đưa vào. Ví dụ :
Mình đưa vào 01 bộ số như sau : 11-22-33 thì : stBo1 = 11, stBo2 = 22, stBo3 = 33
Đoạn code cụ thể như sau :

PHP: 
Sub GhepBo() 
Dim iNumber As Integer, stBo As String, the As String
Dim cauIf As String, cauThe As String
Dim stBo1 As String, stBo2 As String, stBo3 As String, stBo4 As String
Const mo = "("
Const dong = ")"
Const trong = """""" '6 dau nhay
S02.Activate
Range("A24").Select
iNumber = InputBox("????", "So Bo")
stBo = InputBox("???", "Bo")
the = Range("The").Value
cauThe = the & mo & "KqChDv" & dong
cauIf = "If" & mo & "Or" & mo
Select Case iNumber
    Case 1
    stBo = """" & stBo & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo & dong & "," & stBo & "," & trong & dong
 
    Case 2
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Right(stBo, 2): stBo2 = """" & stBo2 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & dong & "," & stBo1 & "," & trong & dong
    Case 3
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Right(stBo, 2): stBo3 = """" & stBo3 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & dong & "," & stBo1 & "," & trong & dong
 
    Case 4
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Mid(stBo, 7, 2): stBo3 = """" & stBo3 & """"
    stBo4 = Right(stBo, 2): stBo4 = """" & stBo4 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & "," _
        & cauThe & "=" & stBo4 & dong & "," & stBo1 & "," & trong & dong
 
    Case 5
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Mid(stBo, 7, 2): stBo3 = """" & stBo3 & """"
    stBo4 = Mid(stBo, 10, 2): stBo4 = """" & stBo4 & """"
    stBo5 = Right(stBo, 2): stBo5 = """" & stBo5 & """"
     ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & "," _
        & cauThe & "=" & stBo4 & "," _
        & cauThe & "=" & stBo5 & dong & "," & stBo1 & "," & trong & dong
 
    Case 6
    stBo1 = Left(stBo, 2): stBo1 = """" & stBo1 & """"
    stBo2 = Mid(stBo, 4, 2): stBo2 = """" & stBo2 & """"
    stBo3 = Mid(stBo, 7, 2): stBo3 = """" & stBo3 & """"
    stBo4 = Mid(stBo, 10, 2): stBo4 = """" & stBo4 & """"
    stBo5 = Mid(stBo, 10, 2): stBo5 = """" & stBo5 & """"
    stBo6 = Right(stBo, 2): stBo6 = """" & stBo6 & """"
    ActiveWorkbook.Names.Add Name:="GhepBo", RefersToR1C1:= _
        "=" & cauIf & cauThe & "=" & stBo1 & "," _
        & cauThe & "=" & stBo2 & "," _
        & cauThe & "=" & stBo3 & "," _
        & cauThe & "=" & stBo4 & "," _
        & cauThe & "=" & stBo5 & "," _
        & cauThe & "=" & stBo6 & dong & "," & stBo1 & "," & trong & dong
End Select
End Sub
Mình muốn dùng vòng For cho nó ngắn lại, không biết có được kg?
 
Upvote 0
Tôi đã đọc code của bạn rồi, vì không có file đính kèm nên chỉ dựa vào code của bạn để viết thôi, bạn cứ thử đoạn code của tôi vào xem có đạt được mục đích không? Cái dòng mà bạn hỏi đương nhiên phải có, vì tất cả các nhánh Case của bạn đều có dòng lệnh này ở cuối, còn tại sao không đưa vào vòng For là vì, vòng For này là để xử lý thay cho các biến stBo(n) của bạn, nên có bao nhiêu biến strBo vòng For sẽ lặp lại bấy nhiêu lần, còn dòng lệnh này lại chỉ có 1 nên không thể cho vào vòng For được. Nếu có thể thì bạn gửi luôn file đó lên sẽ dễ giải quyết hơn.
 
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

N
Cách đánh số thứ tự không liên tục (đánh số lại từ đầu khi cột bên cạnh có giá trị)
Trả lời
5
Đọc
63
HieuCD
H
G
Chuyển Data từ hàng và cột về dạng cột
Trả lời
11
Đọc
141
ptm0412
ptm0412
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.
    • Thích
    • Yêu thích
Trả lời
16
Đọc
2K
quyenpv
quyenpv
P
Tại sao khi đánh số thì bị mất hai số cuối
Trả lời
4
Đọc
18K
vanle33
vanle33
HeSanbi
  • Đã giải quyết
LocalizeXL v1.71 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3
Trả lời
58
Đọc
9K
HeSanbi
HeSanbi
vanle33
File không thao tác gì khi mở ra vẫn hỏi lưu lại khi tắt đi.
Trả lời
5
Đọc
74
zzzsxxx01
Z
linhvu2807
Lỗi hàm công thức Querry
Trả lời
0
Đọc
32
linhvu2807
linhvu2807
C
Tìm dữ liệu khác nhau trong 2 file hoặc 2 sheet trong excel
Trả lời
2
Đọc
121
HUONGHCKT
H
D
Paste dữ liệu, bỏ qua các cell ẩn
2
Trả lời
30
Đọc
45K
HUONGHCKT
H
phatnguyen7301
  • Question Question
Tạo âm thanh khi nhấn vào một phím
Trả lời
3
Đọc
141
yaaasoo01
Y
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
0
Đọc
835
GPE-Trợ Lý
GPE-Trợ Lý
B
Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.
Trả lời
11
Đọc
462
bipbo2008
B
HeSanbi
  • Question Question
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
2
Đọc
237
HeSanbi
HeSanbi
NguyenthiH
Sao dùng Ctl + H thay thế không đúng.
Trả lời
19
Đọc
260
NguyenthiH
NguyenthiH
N
Lỗi định dạng số Excel 2019 - Nguyên nhân và cách khắc phục
Trả lời
1
Đọc
49
ptm0412
ptm0412
huuthang_bd
Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm
    • Thích
    • Yêu thích
2
Trả lời
39
Đọc
9K
ngocminhkte
ngocminhkte
HeSanbi
  • Đã giải quyết
ExcelController - Các hàm thực thi tác vụ linh hoạt cho Excel
    • Thích
    • Yêu thích
Trả lời
5
Đọc
1K
HeSanbi
HeSanbi
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
10
Đọc
245
HUONGHCKT
H
V
Xin giúp em file theo dõi thanh toán có bị quá hạn không, quá bao nhiêu ngày và bao nhiêu tiền ạ
Trả lời
10
Đọc
243
hvnhpro
H
tuv8x
Xin hỏi cách giới hạn vùng làm việc
Trả lời
2
Đọc
93
tuv8x
tuv8x
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
Chúc mừng năm mới.
Back
Top Bottom