Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,157

HOME > .NET Framework > Forum > อยากได้คำสั่ง วนลูป Range Column ที่เรากำหนด ใช้ใน IF


 

อยากได้คำสั่ง วนลูป Range Column ที่เรากำหนด ใช้ใน IF

 



Topic : 132307



โพสกระทู้ ( 32 )
บทความ ( 0 )



สถานะออฟไลน์




สวัสดีคะ ตอนนี้ติดปัญหาคะ

คืออยากได้โค้ด ที่ใช้คำสั่งวน ไป column ถัดไป
ซึ่งตอนนี้ใช้

If target.Address = Range("$E$18").Address Then

excel


ต้องการคำสั่งที่ วนใช้ Column ถัดไป คือ E เเล้วต่อไป เป็น F ,G, H,I

ตามที่กำหนด รบกวนหน่อยคะ

Code ตามด้านล่างคะ

Sub worksheet_change(ByVal target As Range)

If target.Address = Range("$E$18").Address Then

Dim lot As String

lot = Range("E18:E18").Value

If Len(lot) <= 0 Then
Exit Sub
End If

Dim a As String
Dim x As String
a = getLotabc(x)
x = Range("E18:E18").Value

Call ShowMFGDate(lot)

End If


If target.Address = Range("$E$18:$I$18").Address Then
If UCase(target.Value) = UCase(Range("E39:E39").Value) Then

Range("E18:E18").Value = lot

End If
End If

End Sub


Function ConvertDate(lot As String) As Date
Dim nyear As Integer
Dim nmonth As Integer
Dim nday As Integer

Dim sTmp As String
sTmp = Mid(CStr(VBA.Year(Now())), 1, 3)

nyear = CInt(sTmp & Mid(lot, 1, 1))

sTmp = Mid(UCase(lot), 2, 1)
Select Case sTmp
Case "X"
nmonth = 10
Case "Y"
nmonth = 11
Case "Z"
nmonth = 12
Case Else
nmonth = CInt(sTmp)
End Select

nday = CInt(Mid(lot, 3, 2))

Dim dt As Date

dt = DateSerial(nyear, nmonth, nday)

ConvertDate = dt

End Function


Sub ShowMFGDate(lot As String)
Dim showlot As String
showlot = Range("E18:E18").Value
If UCase(showlot) = "NO" Then
Range("E18:E18").Value = showlot

Exit Sub
End If

Dim dt As Date
dt = ConvertDate(showlot)

Range("E39:E39").Value = dt

dt = Range("E39:E39")

lot = Range("E39:E39")

Range("E39:E39").Value = Format(dt, "dd-MMM-YY")



End Sub

Function getLotabc(x As String)
Dim a As String
a = Range("E18:E18").Value

getLotabc = a
End Function



Tag : .NET, Ms Access, Excel (Excel.Application)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-10-11 11:53:23 By : S-Hyun View : 133 Reply : 4
 

 

No. 1

Guest


ต้องเปลี่ยน .Range มาเป็น .Cells(RowIndex,columnIndex) แทนครับ

เนื่องจาก .Range มัน Loop ได้ในแนวลึก คือ แถวเท่านั้นไม่สามารถ Loop แนวนอน แบบคอลัมภ์ได้






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-11 12:59:57 By : K
 


 

No. 2

Guest


ตัวอย่างโค้ดในการ Loop คอลัมภ์

Exl_Col

ถ้าเริ่มจากคอลัมภ์ E Index column = 5 อ้างอิงจากรูป
ผมสมมุติว่าแถวที่ต้องการค่าคือแถวที่ 3 จะเขียนโค้ดได้ดังนี้

Code (VB.NET)
Dim Get_Column As Integer
Dim Get_Value As Integer ' เก็บค่าจาก Cells ที่เลือกใน Loop (อันนี้ผมเก็บแบบทับค่าเดิม หากไม่ต้องการทับค่าต้องเก็บเป็นอะเรย์)

For Get_Column = 5 To 9

        Get_Value = Sheet1.Cells(3, Get_Column).Value
        
Next


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-11 13:23:06 By : K
 

 

No. 3

Guest


ตอบความคิดเห็นที่ : 2 เขียนโดย : K เมื่อวันที่ 2018-10-11 13:23:06
รายละเอียดของการตอบ ::
ลองนำโค้ดที่คุณ K ไปใส่เเทนเเล้วคะ ยังไม่ได้เลยคะ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-11 14:33:08 By : boobee
 


 

No. 4



โพสกระทู้ ( 7,372 )
บทความ ( 1 )



สถานะออฟไลน์


เวลาที่นำโค๊ดไปทดลองแล้ว ไม่ได้ก็ควรจะนำโค๊ดที่ตัวเองทำแล้ว มาแสดง เพื่อที่คนตอบเขาจะได้รู้ว่าคุณทำอย่างไร มันถีงไม่ได้

พอตอบว่าไม่ได้ โดยที่ไม่มีอะไรบอกว่าเอาไปทำอย่างไร มันก็คงจบกันแค่นี้ คนตอบเขาคงมโนเองไม่ได้ว่า จะเป็นอย่างไรต่อไป
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-11 14:36:59 By : Chaidhanan
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : อยากได้คำสั่ง วนลูป Range Column ที่เรากำหนด ใช้ใน IF
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, vps | เช่า vps , รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
for Contact Us : [Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่