Insert Symbol (Separate between data)

[APY_pooky]

"Insert Symbol (Separate between data)"
1.เช็คข้อความตาม column B:B
2.ตัดตัวอักษรทุกๆ 30 ตัว
3.ให้ใส่จำนวนนับใน line in column F
4.ให้ตัวอักษรตัวที่ 31, 61, 91 เป็นอีก 1 แถว
5.ส่วนชุดตัวอักษรใดก็ตาม ที่เป็นเศษของ 30 ก็ให้ใส่ข้อความนั้นทั้งหมด
6.มีวิธีการตัดคำที่อยู่ใน Active cell เดียวได้หรือเปล่าครับ

in example

before
CABLE, SIZE 3 x 50 mm2, P2, XLPE/PVC
CABLE, SIZE 3 x 95 mm2, P1, XLPE/PVC/DSTA/PVC, 6/10 KV, COLOR RED

After
CABLE, SIZE 3 x 50 mm2, P2, XL฿PE/PVC
CABLE, SIZE 3 x 95 mm2, P1, XL฿PE/PVC/DSTA/PVC, 6/10 KV, COLO฿R RED

how to create function into active only one cell

Answer

=REPLACE(REPLACE(A1,61,0,IF(LEN(A1)>60,"฿","")),31,0,IF(LEN(A1)>30,"฿",""))


ภายใต้เงื่อนไขดังกล่าวจะใช้ได้ len check <90 char
ถ้า len check > 1,125 char
จะมีวิธีการอย่างไร ครับ ????

รบกวนช่วยต่อยอด เพื่อให้ได้เงื่อนไขดังกล่าวครับ

[snasui]

อ่านจากความต้องการและดูตัวอย่างแล้วไม่เข้าใจครับ
ช่วยยกตัวอย่างมาสัก 1 ข้อความแล้วแสดงให้เห็นว่าจากข้อ 1-5 มีลักษณะเป็นอย่างไรครับ

[APY_pooky]

ต้องขออภัยด้วยครับ อ่านคำถามของตัวเองยังงง

ขอตั้งคำถามใหม่ตามข้างล่างนี้

"Re: Insert Symbol (Separate between data)"
1.เช็คข้อความตาม column B:B
2.ให้ใส่ Symbol ฿, ในข้อความตาม column B:B (โดยให้การใส่
3.โดยให้การใส่ในข้อ(2) มีเงื่อนไขว่าทุกๆ 30 Character, Symbol ฿ เป็นตัวที่ 31, 61, 91
4.มีวิธีการใส่ ฿ ที่อยู่ใน Active cell เดียวได้ดังสูตรใน column G:G
5.แต่สูตรในข้อ(4) มีข้อจำกัดหนึ่งคือถ้าข้อมูลตาม column B:B นั้นไม่เกิน 95 Character
ก็ต้อง if ไปเรื่อยๆ (สังเกตได้ว่า cell G15 นั้นมี Symbol ฿ แค่ 2 ตัวซึ่งน่าจะเป็น 37 ตัว
6.จากการ Len check ข้อความตาม column B:B นั้น max ที่ 1,125 Character
7.จะวิธีการใช้ function อย่างไรเพื่อให้ใส่ Symbol ฿ นั้นให้อยู่เพียงหนึ่งเซลล์

ขอบคุณครรับ
APY_pooky

[APY_pooky]

ดังเอกสารแนบครับ

[snasui]

การทำเช่นนั้นคงต้องพี่ง VBA ครับ ลองเขียนมาดูก่อน ติดตรงไหนสามารถถามมาได้เรื่อย ๆ ครับ

[APY_pooky]

Code: Select all

Sub insert_Sybol_฿()
SET XX As Long
SET B As Long

K = Left(XX, 30) 'constant very first 30 character(Begin)
For B = 31 To Len(XX) 'Step +30 char (Next insett)
XX = XX & ChrW(00A3) & Mid(XX, K, 30)  'ยังไม่ทราบ Char no. ฿ (ขอกำหนดให้ใส่ symbol £ euro = Char code 00A3 ก่อน)
Next K
End

End sub

มันจะขึ้น complies error: syntax error

รบกวนอาจารย์ ช่วยดู code ว่า concept ได้หรือไม่ครับ
APY_pooky

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub test0()
    Dim r As Range, rAll As Range
    Dim i As Integer, t As String
    With Sheets("Method2")
        Set rAll = .Range("B3", .Range("B" & _
            Rows.Count).End(xlUp))
    End With
    For Each r In rAll
        t = ""
        For i = 1 To Len(r) Step 30
            t = t & Mid(r, i, 30) & "ß"
        Next i
        r = Left(t, Len(r) - 1)
    Next r
End Sub

[APY_pooky]

ขอบคุณมากๆ ครับ