Snasui Excel Forum

ขอบคุณครับ

:D คอลัมน์เดิมแถวใหม่คือที่โพสต์มาครับ
[quote="vichaim"]ถามเองตอบเอง คงไม่ว่ากันนะครับ ไปค้นเจอมาที่เวปบอร์ดแห่งหนึ่งครับ

Range("C" & ActiveCell.Row).Select[/quote]

ถ้าแถวเดิมคอลัมน์ใหม่สามารถเขียนเป็นด้านล่างครับ

[c]cells(5,activecell.column)[/c]

แต่ตอนนี้เริ่มอยากทราบว่า Column เดิม แถวใหม่ใช้คำสั่งอะไรครับ

ถามเองตอบเอง คงไม่ว่ากันนะครับ ไปค้นเจอมาที่เวปบอร์ดแห่งหนึ่งครับ

Range("C" & ActiveCell.Row).Select

Sub DNCN()
    Dim Lrow3 As Integer
    
        ChDir "C:\Temp"
        Workbooks.OpenText Filename:="C:\Temp\knr001.out", Origin:=874, StartRow _
        :=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(28, 1), Array _
        (47, 1), Array(74, 1), Array(88, 1), Array(104, 1), Array(134, 1), Array(154, 1), Array(165 _
        , 1), Array(176, 1)), TrailingMinusNumbers:=True

        Cells.Find(What:="Total DN", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate 'ËÒ DN 
        End SuB

คือผมใช้คำสั่ง Marco เปิด File และค้นหา คำเพื่อไปจุดที่ต้องการ แต่ไม่ตรง Cell จึงต้องใช้คำสั่งเพื่อ เลือกให้ทางทางขวาอีก 2 Cell
แต่ด้วยคำสั่งเป็น Sub() จึงไม่สามารถใช้ Target ได้ครับ

ผมใช้วิธีค้นหาคำว่า Total DN ได้ที่ Cell A5 แต่ที่ต้องการคือ C5 ครับ
[code]Sub DNCN()
Dim Lrow3 As Integer

ChDir "C:\Temp"
Workbooks.OpenText Filename:="C:\Temp\knr001.out", Origin:=874, StartRow _
:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(28, 1), Array _
(47, 1), Array(74, 1), Array(88, 1), Array(104, 1), Array(134, 1), Array(154, 1), Array(165 _
, 1), Array(176, 1)), TrailingMinusNumbers:=True

Cells.Find(What:="Total DN", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate 'ËÒ DN
End SuB[/code]