คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
sooksun2009 wrote:ขอบคุณครับ คุณ DhitiBank แต่ผมต้องการให้ตัดอักษรตรง colume B เรยครับ
คำที่ผมระบายสีไว้ผิดกฎข้อ 1 ด้านบน ระมัดระวังด้วยครับCode: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Reason As String
Reason = ActiveCell.Text
If Not Intersect(Target, Range("b:b")) Is Nothing Then
ActiveCell = Left(Reason, 17)
End If
End SubCode: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B100")) Is Nothing Then
Target = Left(Target, 17)
End If
End Sub
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
Application.EnableEvents = True
End SubCode: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B100")) Is Nothing Then
Target = Left(Target, 17)
End If
End SubCode: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
If Not Intersect(Target, Range("B3:B100")) Is Nothing Then
Target = Left(Target, 17)
End If
Application.EnableEvents = True
End Sub
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
If ActiveCell.Column = 2 Then
Target = Left(Target, 17)
End If
Application.EnableEvents = True
End Sub