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

Chia sẻ bởi:hands

★★★★★

‹ Lấy dữ liệu dòng tiếp theo của... Lưu tập tin PDF tự động từ... ›

Quảng cáo

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/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR").Text = Sheet1.Rows(i).Cells(1)

B2:B11 em mong muốn

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR").Text = Sheet1.Rows(i).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 1 &]").Text = Sheet1.Rows(i + 1).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 2 &]").Text = Sheet1.Rows(i + 2).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 3 &]").Text = Sheet1.Rows(i + 3).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 4 &]").Text = Sheet1.Rows(i + 4).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 5 &]").Text = Sheet1.Rows(i + 5).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 6 &]").Text = Sheet1.Rows(i + 6).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 7 &]").Text = Sheet1.Rows(i + 7).Cells(1)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/ctxtKOMG-MATNR[0,& i + 8 &]").Text = Sheet1.Rows(i + 8).Cells(1)

session.findById("wnd/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/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR").Text = Sheet1.Rows(i).Cells(2)

B12:B21 em mong muốn

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR").Text = Sheet1.Rows(i).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 1 &]").Text = Sheet1.Rows(i + 1).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 2 &]").Text = Sheet1.Rows(i + 2).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 3 &]").Text = Sheet1.Rows(i + 3).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 4 &]").Text = Sheet1.Rows(i + 4).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 5 &]").Text = Sheet1.Rows(i + 5).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 6 &]").Text = Sheet1.Rows(i + 6).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 7 &]").Text = Sheet1.Rows(i + 7).Cells(2)

session.findById("wnd/usr/tblSAPMV13ATCTRL_FAST_ENTRY/txtKONP-KBETR[4,& i + 8 &]").Text = Sheet1.Rows(i + 8).Cells(2)

session.findById("wnd/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.
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ị

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 = .End(xlDown).Row
ReDim Arr(1 To 13 * Rws, 1 To 1) As String
.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
.Resize(W).Value = Arr()
End Sub

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.

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):

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 = .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

www.giaiphapexcel.com/diendan/threads/h%E1%BB%97-tr%E1%BB%A3-chuy%E1%BB%83n-1-d%C3%B2ng-text-th%C3%A0nh-10-d%C3%B2ng-text-theo-quy-lu%E1%BA%ADt.164296/