Hỗ trợ chuyển 1 dòng text thành 10 dòng text theo quy luật

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài
Có
Tình nghĩa giang hồ

Tình nghĩa giang hồ

Thanh sơn bất cải, lục thủy trường lưu
Tham gia
29/9/20
Bài viết
330
Được thích
429
Chào anh chị em có trường hợp này nhờ anh chị hỗ trợ giúp.
A2 của em có chuổi dữ liệu
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,0]").Text = Sheet1.Rows(i).Cells(1)
B2:B11 em mong muốn
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i &]").Text = Sheet1.Rows(i).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 1 &]").Text = Sheet1.Rows(i + 1).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 2 &]").Text = Sheet1.Rows(i + 2).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 3 &]").Text = Sheet1.Rows(i + 3).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 4 &]").Text = Sheet1.Rows(i + 4).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 5 &]").Text = Sheet1.Rows(i + 5).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 6 &]").Text = Sheet1.Rows(i + 6).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 7 &]").Text = Sheet1.Rows(i + 7).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 8 &]").Text = Sheet1.Rows(i + 8).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 9 &]").Text = Sheet1.Rows(i + 9).Cells(1)

tương tự A3 cảu em có chuổi dữ liệu
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,0]").Text = Sheet1.Rows(i).Cells(2)
B12:B21 em mong muốn
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i &]").Text = Sheet1.Rows(i).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 1 &]").Text = Sheet1.Rows(i + 1).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 2 &]").Text = Sheet1.Rows(i + 2).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 3 &]").Text = Sheet1.Rows(i + 3).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 4 &]").Text = Sheet1.Rows(i + 4).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 5 &]").Text = Sheet1.Rows(i + 5).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 6 &]").Text = Sheet1.Rows(i + 6).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 7 &]").Text = Sheet1.Rows(i + 7).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 8 &]").Text = Sheet1.Rows(i + 8).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 9 &]").Text = Sheet1.Rows(i + 9).Cells(2)

Em có rất nhiều chuổi kiểu này đều có chung quy luật là số 0 kế chuổi 0]").Text và chữ .Rows(i)
Em có thử viết code nhưng không hiệu quả, vì nó không hiểu chỗ này là Text.
Mã: 
Sub motdong_thanh_muoidong()
    Dim j As Integer
    For j = 0 To 9
        Range("B" & j + 1).Value = "session.findById(""wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0," & i + j & "]"").Text = Sheet1.Rows(" & i + j & ").Cells(1)"
    Next j
End Sub
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị
 

File đính kèm

  • GPE.xlsx
    11.6 KB · Đọc: 11
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Tình nghĩa giang hồ đã viết:
Chào anh chị em có trường hợp này nhờ anh chị hỗ trợ giúp.
A2 của em có chuổi dữ liệu
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,0]").Text = Sheet1.Rows(i).Cells(1)
B2:B11 em mong muốn
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i &]").Text = Sheet1.Rows(i).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 1 &]").Text = Sheet1.Rows(i + 1).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 2 &]").Text = Sheet1.Rows(i + 2).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 3 &]").Text = Sheet1.Rows(i + 3).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 4 &]").Text = Sheet1.Rows(i + 4).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 5 &]").Text = Sheet1.Rows(i + 5).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 6 &]").Text = Sheet1.Rows(i + 6).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 7 &]").Text = Sheet1.Rows(i + 7).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 8 &]").Text = Sheet1.Rows(i + 8).Cells(1)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 9 &]").Text = Sheet1.Rows(i + 9).Cells(1)

tương tự A3 cảu em có chuổi dữ liệu
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,0]").Text = Sheet1.Rows(i).Cells(2)
B12:B21 em mong muốn
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i &]").Text = Sheet1.Rows(i).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 1 &]").Text = Sheet1.Rows(i + 1).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 2 &]").Text = Sheet1.Rows(i + 2).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 3 &]").Text = Sheet1.Rows(i + 3).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 4 &]").Text = Sheet1.Rows(i + 4).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 5 &]").Text = Sheet1.Rows(i + 5).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 6 &]").Text = Sheet1.Rows(i + 6).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 7 &]").Text = Sheet1.Rows(i + 7).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 8 &]").Text = Sheet1.Rows(i + 8).Cells(2)
session.findById("wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 9 &]").Text = Sheet1.Rows(i + 9).Cells(2)

Em có rất nhiều chuổi kiểu này đều có chung quy luật là số 0 kế chuổi 0]").Text và chữ .Rows(i)
Em có thử viết code nhưng không hiệu quả, vì nó không hiểu chỗ này là Text.
Mã: 
Sub motdong_thanh_muoidong()
    Dim j As Integer
    For j = 0 To 9
        Range("B" & j + 1).Value = "session.findById(""wnd[0]/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0," & i + j & "]"").Text = Sheet1.Rows(" & i + j & ").Cells(1)"
    Next j
End Sub
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị
Nhấp chuột vào đây để mở rộng...
Bạn thử cho cái này lên đầu nhé.
Option Explicit
Ở đây i có phải là biến đâu mà bạn để như vậy phải cho nó vào trong chứ.
 
Upvote 0
PHP: 
Sub ThemChucDong()
 Dim Rws As Long, W As Integer, J As Long, Dm As Byte, Vtr As Byte
 Dim StrC As String
 Const Ii As String = "(i)"
 
 Rws = [A2].End(xlDown).Row
 ReDim Arr(1 To 13 * Rws, 1 To 1) As String
 [C2].Resize(13 * Rws).Value = ""
 For J = 2 To Rws
    StrC = Cells(J, "A").Value
    Vtr = InStr(StrC, Ii) + 1
    If Vtr Then
        W = W + 1:              Arr(W, 1) = StrC
        For Dm = 1 To 9
            W = W + 1
            Arr(W, 1) = Left(StrC, Vtr) & "+" & Str(Dm) & Mid(StrC, Vtr + 1, Len(StrC))
        Next Dm
    End If
 Next J
 [C2].Resize(W).Value = Arr()
End Sub
 
Upvote 0
SA_DQ đã viết:
PHP: 
Sub ThemChucDong()
 Dim Rws As Long, W As Integer, J As Long, Dm As Byte, Vtr As Byte
 Dim StrC As String
 Const Ii As String = "(i)"
 
 Rws = [A2].End(xlDown).Row
 ReDim Arr(1 To 13 * Rws, 1 To 1) As String
 [C2].Resize(13 * Rws).Value = ""
 For J = 2 To Rws
    StrC = Cells(J, "A").Value
    Vtr = InStr(StrC, Ii) + 1
    If Vtr Then
        W = W + 1:              Arr(W, 1) = StrC
        For Dm = 1 To 9
            W = W + 1
            Arr(W, 1) = Left(StrC, Vtr) & "+ " & Str(Dm) & Mid(StrC, Vtr + 1, Len(StrC))
        Next Dm
    End If
 Next J
 [C2].Resize(W).Value = Arr()
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn bác SA_DQ. Nhưng của em cần 2 thông tin: 0]").Text và chữ .Rows(i).
Trong đoạn code này thì chỗ Rows(i) đã đúng yêu cầu. Còn chỗ 0]").Text thì chưa đúng bác ạ.
Bác SA_DQ có thể sửa giúp em thêm chút xíu nữa được không ?
Nó phải ra & i &, & i + 1& , & i + 2&.................
Em cảm ơn bác.
 
Upvote 0
Công thức được không bạn?
Mã: 
B2=SUBSTITUTE(SUBSTITUTE(OFFSET($A$1,ROUNDUP(ROW(A1)/10,0),),".Rows(i).",".Rows(i+"&MOD(ROW(A1)-1,10)&")."),",0]"").Text",",& (i + "&MOD(ROW(A1)-1,10)&") &]"").Text")
 
Upvote 0
huuthang_bd đã viết:
Công thức được không bạn?
Mã: 
B2=SUBSTITUTE(SUBSTITUTE(OFFSET($A$1,ROUNDUP(ROW(A1)/10,0),),".Rows(i).",".Rows(i+"&MOD(ROW(A1)-1,10)&")."),",0]"").Text",",& (i + "&MOD(ROW(A1)-1,10)&") &]"").Text")
Nhấp chuột vào đây để mở rộng...
Dạ công thức cũng được anh, nhưng mà công thức này nó ra dư 2 cái dấu ( ) với dư chỗ i+0
Dư dấu () thì cũng được. Nhưng có cách nào i + 0 thì ghi là i được không anh
Bài đã được tự động gộp:

Em quên mất rows(i) và row(i+0) giống nhau. Em cảm ơn anh Thắng.
 
Lần chỉnh sửa cuối:
Upvote 0
Chưa thỏa i xì xì theo yếu cầu của bạn (& bạn tự sủa thử trước đi nha):
PHP: 
Sub ThemChucDong()
 Dim Rws As Long, J As Long, W As Integer, Dm As Byte, VTr As Byte, VTr0 As Byte
 Dim StrC As String
 Const C1 As String = "0,0":            Const C2 As String = "(i)"
 
 Rws = [A2].End(xlDown).Row
 ReDim Arr(1 To 13 * Rws, 1 To 1) As String
 Range("C2").Resize(Rws * 13).Value = ""
 For J = 2 To Rws
    StrC = Cells(J, "A").Value
    VTr = InStr(StrC, C1) + 2
    For Dm = 0 To 9
        W = W + 1
        Arr(W, 1) = Left(StrC, VTr) & "& i &+" & CStr(Dm) & Mid(StrC, VTr + 1, Len(StrC))
        VTr0 = InStr(Arr(W, 1), C2) + 1
        Arr(W, 1) = Left(Arr(W, 1), VTr0) & "+ " & CStr(Dm) & Mid(Arr(W, 1), VTr0 + 1, Len(StrC))
    Next Dm
 Next J
 Range("C2").Resize(W).Value = Arr()
End Sub
 
Upvote 0
Thử dùng công thức cho excel 365
Mã: 
=LET(t,A2:A6,
f,LAMBDA(a,b,SUBSTITUTE(SUBSTITUTE(a,"Rows(i)","Rows(i + "&b&")"),",0]"").Text",",& i + "&b&" &]"").Text")),
ar,DROP(REDUCE("",t,LAMBDA(x,y,LET(ty,f(y,SEQUENCE(10,,0)),VSTACK(x,ty)))),1),
SUBSTITUTE(ar," + 0",""))
1678419396934.png
 
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

LuuAnh980
Từ "cân đối" trong tiếng Anh là gì?
2 3
Trả lời
44
Đọc
2K
VetMini
V
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt + wide_to_long của Python trong Excel)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
11
Đọc
605
VetMini
V
nguyenanhhoa
Nhờ các bác giúp: e muốn tô màu khác nhau đối với các ô giống nhau về giá trị
    • Cười
Trả lời
6
Đọc
108
cantl
C
C
Tiếng Việt
    • Cười
2
Trả lời
32
Đọc
1K
VetMini
V
N
Công thức tính số phù hợp với % mong muốn
Trả lời
8
Đọc
93
cantl
C
B
Giúp em xử lý lỗi macro khi chạy VBA
Trả lời
18
Đọc
366
cantl
C
N
cộng các dữ liệu không trùng nhau
Trả lời
6
Đọc
93
Duy Tùng 9x
Duy Tùng 9x
HeSanbi
  • Question
Hàm FilterA và FilterV - Bổ trợ tận dụng bộ lọc AutoFilter và AdvancedFilter
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
48
Đọc
4K
Manhhung90
Manhhung90
T
Chèn dữ liệu từ sheet này qua sheet khác theo điều kiện
Trả lời
1
Đọc
76
HieuCD
H
N
Giúp em công thức lấy dữ liệu không trùng để in phiếu thu bán hàng
Trả lời
5
Đọc
176
nguyenthieny
N
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
7 8 9
Trả lời
173
Đọc
9K
ongke0711
ongke0711
K
  • Question
Sử dụng Power Query để xử lý nhật ký chung nhiều nợ nhiều có
    • Cười
Trả lời
5
Đọc
87
quocphuoc88
quocphuoc88
N
  • Question
Xin mã code ẩn hiện dòng theo điều kiện
Trả lời
1
Đọc
36
HUONGHCKT
H
vova2209
Index kết hợp với match 2 điều kiện
Trả lời
13
Đọc
1K
hoangtuaotrang_hp_vn
H
vova2209
  • Question
Tìm địa chỉ ô với 2đk và chuyển thành links
Trả lời
17
Đọc
386
vova2209
vova2209
Huy@@*
Giải đáp giùm em, cách khắc phục lỗi này trên VBA
Trả lời
0
Đọc
22
Huy@@*
Huy@@*
A
Công thức tính tổng chi phí nhiều điều kiện
Trả lời
6
Đọc
101
adad
A
hunganh.nguyen
Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1
Trả lời
5
Đọc
297
vostro 1500
vostro 1500
T
Lọc lấy đơn giá nhập mới nhất của các mặt hàng
2
Trả lời
20
Đọc
14K
honguyentruong
H
H
Cộng các ô cùng màu bằng VBA
Trả lời
2
Đọc
73
haquyet2013
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

Back
Top Bottom