:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

การแปลงข้อมูล

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: การแปลงข้อมูล

Re: การแปลงข้อมูล

#107

by snasui » Thu Oct 27, 2011 8:14 pm

:D ลองตามนี้ครับ

ที่เซลล์ P13 คีย์

=MATCH(O13,A:A,0)

Enter

Re: การแปลงข้อมูล

#106

by Bafnet » Thu Oct 27, 2011 8:06 pm

สวัสดีครับ...อาจารย์
ผมหายไปนานหวังว่าอาจารย์คงสบายดีนะครับ
ตอนนี้ผมต้องเตรียมงานนำเสนอผลงาน
แบงค์กำหนดวันแข่งขันระดับประเทศแล้วครับคือวันที่ 29 พ.ย.
ก็จะพยายามทำให้ดีที่สุดครับ อีกอย่างตอนนี้โปรแกรมดังกล่าวได้ถูกปล่อยให้
พนักงานในพื้นที่ใช้งานกันแล้ว ซึ่งก็เริ่มเจอBug บ้างประปรายแต่พอจะแก้ไขได้
แต่ที่หนักกว่า Bug คือความต้องการของผู้ใช้รู้สึกจะมีความต้องการอันนั้นอันนี้เพิ่มขึ้นอย่างมากมาย
สงสัยกะว่าไม่ต้องทำมือกันซะอย่างงั้น :roll:
วันนี้ผมมีเรื่องมารบกวนขอความช่วยเหลือจากอาจารย์หน่อยครับ
ผมมีชุดข้อมูลอยู่ที่ RangeA:A พอจะมีสูตรใดบ้างครับที่ทำให้เราทราบว่าข้อมูลที่เราระบุ
อยู่ในลำดับที่เท่าไรของชุดข้อมูลใน Range ดังกล่าว
ขอบพระคุณมากครับ :oops:
index.xlsx
(13.54 KiB) Downloaded 7 times

Re: การแปลงข้อมูล

#105

by snasui » Sat Oct 08, 2011 6:54 am

:D ยินดีกับรางวัลชนะเลิศระดับภาคใต้ด้วยนะครับ ถือเป็นความสำเร็จที่ยิ่งใหญ่น่าภาคภูมิใจ ก็ขอให้ได้รางวัลใดรางวัลหนึ่งในระดับประเทศครับ

กรณีกำหนด Password การเปิดไฟล์ เมื่อเปิดด้วย Code และไม่ต้องการให้ถาม Password สามารถเขียน Code ตามด้านล่างครับ

Code: Select all

Set wb = Workbooks.Open("C:\DumP\DATA\base\data.xlsx", False, False, password:="230314")
ตอนสั่งปิดเราไม่ต้องใส่ Password แต่อย่างใดครับ

Re: การแปลงข้อมูล

#104

by Bafnet » Sat Oct 08, 2011 12:28 am

สวัสดีครับอาจารย์
งานแข่งขันนวัตกรรม ระดับภาคใต้ได้สิ้นสุดแล้วครับ
โปรแกรมช่วยงานชิ้นนี้ได้รางวัลชนะเลิศครับ ต้องขอขอบคุณอาจารย์อีกครั้ง
ซึ่งงานชิ้นนี้จะเป็นตัวแทนภาคใต้เข้าแข่งขันระดับประเทศต่อไป
มีเรื่องรบกวนขอคำแนะนำอาจารย์หน่อยนะครับ
ทางคณะกรรมการเขาคอมเมนต์มาว่าเนื่องจากข้อมูลที่ทำการบันทึกมีความสำคัญ
ควรจะต้องมีระบบรักษาความปลอดภัยในการเข้าถึงข้อมูล
จึงอยากขอคำแนะนำจากอาจารย์ว่าสมมุติว่าผมกำหนดรหัสผ่านในการเข้าถึงสมุดงานที่ชื่อ
data.xlsx คือ 230314
ในคำสั่งที่เราไปสั่งเปิดสมุดงานดังกล่าวดังโค๊ดข้างล่างนี้จะปรับเป็นอย่างไรครับ

Code: Select all

Dim wb As Variant
Dim rt As Range
Dim rs As Range
Dim myData As Range
If TextBox86.Value = "" Or TextBox91.Value = "" Then
Exit Sub
End If
Application.ScreenUpdating = False
Sheet1.Range("F66:M66").Value = Sheet1.Range("F65:M65").Value
Set wb = Workbooks.Open("C:\DumP\DATA\base\data.xlsx", False, False)
ActiveWorkbook.Worksheets("Offline").Select
With Workbooks("data.xlsx").Worksheets("Offline")
Set rs = Workbooks("data.xlsx").Worksheets("Offline").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Set myData = Workbooks("data.xlsx").Worksheets("Offline").Range("A:G")
End With

Code: Select all

Set wb = Workbooks.Open("C:\DumP\DATA\base\data.xlsx", False, False)
กรณีการตั้งรหัสผ่านการเปิดสมุดงานเช่นนี้ ตอนปิดไม่ต้องสั่งเข้ารหัสใช่ไหมครับ
แค่
wb.close True ก็ได้ใช่ไหมครับ
รบกวนอาจารย์ด้วยนะครับ
ขอบคุณครับ

Re: การแปลงข้อมูล

#103

by snasui » Tue Oct 04, 2011 8:22 pm

:D อยู่ที่การจัดลำดับครับ ให้สลับเอาสูตรที่เปลี่ยน นางสาว เป็น คุณ ขึ้นก่อนสูตรที่ใช้เปลี่ยน นาง เป็น คุณ เนื่องจาก If จะให้ความสำคัญเรียงตามลำดับครับ

Re: การแปลงข้อมูล

#102

by Bafnet » Tue Oct 04, 2011 7:58 pm

สวัสดีครับอาจารย์
มีเรื่องรบกวนหน่อยครับ
=IF(L5="","",IF(ISNUMBER(FIND("นาย",L5)),SUBSTITUTE(L5,"นาย","คุณ"),IF(ISNUMBER(FIND("นาง",L5)),SUBSTITUTE(L5,"นาง","คุณ"),IF(ISNUMBER(FIND("น.ส.",L5)),SUBSTITUTE(L5,"น.ส.","คุณ"),IF(ISNUMBER(FIND("นางสาว",L5)),SUBSTITUTE(L5,"นางสาว","คุณ"),L5)))))

คำอื่นแก้เป็น คุณได้หมดครับ ยกเว้นคำว่านางสาว กลายเป็นคุณสาว
ไม่ทราบว่าแก้อย่างไรครับ
รบกวนด้วยครับ :roll:

Re: การแปลงข้อมูล

#101

by Bafnet » Sat Oct 01, 2011 10:58 pm

สวัสดีครับ ขอบคุณมากๆครับ สมบูรณ์ครับ
snasui wrote:Sub SumLastCellToStartCell()
Dim r As Range
Set r = Range("BU" & Rows.Count).End(xlUp).Offset(1, 0)
r = "=sum(R1C:R[-1]C)"
r.Offset(0, 1) = "=sum(R1C:R[-1]C)"
r.Offset(0, 2) = "=sum(R1C:R[-1]C)"
r.Offset(0, 3) = "=sum(R1C:R[-1]C)"
r.Offset(0, 4) = "=sum(R1C:R[-1]C)"
r.Offset(0, 5) = "=sum(R1C:R[-1]C)"
End Sub
ผมปรับนิดหน่อยเพราะบางRange เป็นลำดับที่ , วันที่

Sub SumLastCellToStartCell()
Dim r As Range
Set r = Range("BU" & Rows.Count).End(xlUp).Offset(1, 0)
r = "Total"
r.Offset(0, 1) = "xxx"
r.Offset(0, 2) = "=sum(R1C:R[-1]C)"
r.Offset(0, 3) = "=sum(R1C:R[-1]C)"
r.Offset(0, 4) = "=sum(R1C:R[-1]C)"
r.Offset(0, 5) = "xxx"
End Sub
ความสัมพันธ์ของการกำหนดแถวและคอลัมม์ ใน Offset คงต้องตั้งใจศึกษามากกว่านี้
ขอบพระตุณมากครับ

Re: การแปลงข้อมูล

#100

by snasui » Sat Oct 01, 2011 9:05 pm

:P ลองดู Code ด้านล่างว่าใช่ที่ต้องการหรือเปล่าครับ

Code: Select all

Sub SumLastCellToStartCell()
Dim r As Range
Set r = Range("BU" & Rows.Count).End(xlUp).Offset(1, 0)
 r = "=sum(R1C:R[-1]C)"
 r.Offset(0, 1) = "=sum(R1C:R[-1]C)"
 r.Offset(0, 2) = "=sum(R1C:R[-1]C)"
 r.Offset(0, 3) = "=sum(R1C:R[-1]C)"
 r.Offset(0, 4) = "=sum(R1C:R[-1]C)"
 r.Offset(0, 5) = "=sum(R1C:R[-1]C)"
End Sub

Re: การแปลงข้อมูล

#99

by Bafnet » Sat Oct 01, 2011 7:40 pm

สวัสดีครับ
ขอบคุณครับสำหรับแหล่งความรู้เรื่องบาร์โค๊ด
ชอบใจๆๆ :lol: มีเรื่องให้ตื่นตาตื่นใจมากมาย
ทั้งDigital Clock
แต่เรื่องบาร์barcode ผมติดตรงไม่ทราบว่า
จะไปโหลด Encoder.bas ที่ไหน
หาอยู่2วันยังไม่พบแหล่ง
อาจารย์ครับวันนี้มีเรื่องรบกวนอาจารย์ปรับให้หน่อยครับ

Code: Select all

Private Sub CommandButton28_Click()
Dim ri As Range
If frmPro.ComboBox12.Value = "" Then
Exit Sub
End If
On Error Resume Next
Sheet21.Visible = xlSheetVisible
Sheet21.Activate
With Worksheets("Credit")
Set ri = .Range(.Range("BU1"), .Range("BZ65536") _
.End(xlUp)).SpecialCells(xlCellTypeVisible)
End With
ri.Select
Selection.EntireColumn.AutoFit
With Selection
   .Borders(xlEdgeLeft).LineStyle = xlContinuous
   .Borders(xlEdgeTop).LineStyle = xlContinuous
   .Borders(xlEdgeBottom).LineStyle = xlContinuous
   .Borders(xlEdgeRight).LineStyle = xlContinuous
   .Borders(xlInsideHorizontal).LineStyle = xlContinuous
   .Borders(xlInsideVertical).LineStyle = xlContinuous
End With
frmPro.Hide
ri.PrintPreview
frmPro.Show
Sheet21.Activate
Columns("BU:BZ").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheet21.Visible = xlSheetHidden
End Sub
คือที่Rang BU:BZ เป็นข้อมูลหาจำนวนงวดชำระหนี้
ซึ่งมีข้อมูลไม่แน่นอน
แต่ผมอยากให้ข้อมูลที่ต่อจากบรรทัดที่มีข้อมูล(เน้นที่BU:BZ นะครับ เนื่องจากที่ตำแหน่งเซลอื่นๆมีข้อมูลอื่นอยู่ด้วย)
เป็นผลรวมของแต่ละ Range
เช่นสมมติข้อมูลสุดท้ายที่ BU100
ก็อยากให้ที่ Range("BU101").formular ="=SUM(BU:BU)"
Range("BV101").formular ="=SUM(BV:BV)"
Range("BW101").formular ="=SUM(BW:BW)"
แนะนำหน่อยนะครับ

Re: การแปลงข้อมูล

#98

by snasui » Wed Sep 28, 2011 10:43 pm

Bafnet wrote:รายงานความคืบหน้าครับ
ได้ไปเอาไฟล์งานที่ให้พนักงานทดลองใช้
ซึ่งไม่ได้เขียนคำสั่งใดๆเพิ่มเติม นอกจากการแก้ Interger เป็น Long
ปรากฎว่า Debug ลักษณะดังกล่าวครับ
และไฟล์ที่ไม่ได้แก้ Interger เป็น Long ไม่มีอาการดังกล่าว :roll:
นับเป็นเรื่องแปลกครับ สิ่งที่ฟ้องไม่ตรงกับสิ่งที่โปรแกรมกำลังเป็น :lol:
Bafnet wrote:1.การประกาศตัวแปรไว้แต่ไม่ได้ใช้มีผลกับคำสั่งนั้นรึเปล่าครับ เช่นบอกว่า Dim X As interger
แต่ในคำสั่งนั้นไม่มีคำสั่งใดๆที่ใช้ x เพราะบางทีคำสั่งที่คล้ายๆกันผมก็ลอกไปวาง แล้วเปลี่ยนคำสั่งแต่
ส่วนที่ประกาศตัวแปรบางทีก็ลืมลบ
ไม่มีปัญหาครับ แต่ถ้าใช้โดยไม่ประกาศก่อนตัวแปรนั้นจะเป็น Variant โดยอัตโนมัติ
Bafnet wrote:2.อาจารย์พอจะแนะนำแหล่งความรู้เรื่อง barcode ได้ไหมครับ
ตอนนี้ผมมีฟอร์นบาร์โค๊ด ซึ่งนำไปทดสอบแล้ว ใช้ได้ครับ
แต่อยากรู้วิธีเขียน เช่นชุดข้อมูล+Enter ,ชุดข้อมูล+F7
ประมาณว่ายิงแล้วได้ข้อมูลตามที่ระบุพร้อม Enter :mrgreen:
สำหรับเรื่อง VBA และ Barcode ลองศึกษาตามนี้ดูครับ :arrow: VBA and Barcode
Bafnet wrote:ขออนุญาตนำ Link snasui.Com ใส่ในโปรแกรมนะครับ
ยินดีครับ

Re: การแปลงข้อมูล

#97

by Bafnet » Wed Sep 28, 2011 10:25 pm

สวัสดีครับอาจารย์
รายงานความคืบหน้าครับ
ได้ไปเอาไฟล์งานที่ให้พนักงานทดลองใช้
ซึ่งไม่ได้เขียนคำสั่งใดๆเพิ่มเติม นอกจากการแก้ Interger เป็น Long
ปรากฎว่า Debug ลักษณะดังกล่าวครับ
และไฟล์ที่ไม่ได้แก้ Interger เป็น Long ไม่มีอาการดังกล่าว :roll:
ก็ไม่เป็นไรครับ เดี๋ยวทำใหม่ความพยายามอยู่ที่ไหนความสำเร็จน่าจะอยู่ที่นั้น
อืม...อาจารย์ครับมีสักสองประเด็น
1.การประกาศตัวแปรไว้แต่ไม่ได้ใช้มีผลกับคำสั่งนั้นรึเปล่าครับ เช่นบอกว่า Dim X As interger
แต่ในคำสั่งนั้นไม่มีคำสั่งใดๆที่ใช้ x เพราะบางทีคำสั่งที่คล้ายๆกันผมก็ลอกไปวาง แล้วเปลี่ยนคำสั่งแต่
ส่วนที่ประกาศตัวแปรบางทีก็ลืมลบ
2.อาจารย์พอจะแนะนำแหล่งความรู้เรื่อง barcode ได้ไหมครับ
ตอนนี้ผมมีฟอร์นบาร์โค๊ด ซึ่งนำไปทดสอบแล้ว ใช้ได้ครับ
แต่อยากรู้วิธีเขียน เช่นชุดข้อมูล+Enter ,ชุดข้อมูล+F7
ประมาณว่ายิงแล้วได้ข้อมูลตามที่ระบุพร้อม Enter :mrgreen:

เรื่องสุดท้ายครับ อาจารย์ครับงานชิ้นนี้ได้ถูกคัดเลือกส่งเข้าประกวด
งานนวัตกรรมประเภทโปรแกรมช่วยงานสาขา ของธกส.ประจำปี2554
ต้องขอขอบคุณอาจารย์อีกครั้งที่ทำให้มาถึงจุดนี้
ขออนุญาตนำ Link snasui.Com ใส่ในโปรแกรมนะครับ
ขอบพระคุณอย่างสูงครับ

Re: การแปลงข้อมูล

#96

by snasui » Wed Sep 28, 2011 10:49 am

:D ช่วงกลางวันคงไม่สะดวกในการ Remote Desktop ครับ

สำหรับเรื่องการเปลี่ยนตัวแปรจาก Integer เป็น Long ไม่น่าจะมีผล และถ้าจะฟ้องควร Out of Memory อะไรแบบนั้นครับ :)

Re: การแปลงข้อมูล

#95

by Bafnet » Wed Sep 28, 2011 8:29 am

สวัสดีครับ
จนด้วยเกล้าครับ..ลบทุกอย่างที่สร้างเพิ่มทิ้งก็ยังไม่ได้
อยากส่งไฟล์ให้อาจารย์ดูแต่ก็ใหญ่ 10167 KB
ถ้าจะให้อาจารย์ teamViewver เข้ามาดูให้
จะผิดกฏการทำงานของอาจารย์หรือเปล่าครับ
อาจารย์ครับ การที่วันก่อนผมไปสั่งเปลี่ยน Interger เป็น long
แต่รู้สึกว่าถ้าจำไม่ผิดวันนั้นสั่งเปลี่ยนทั้งโปรเจค
มันอาจไปส่งผลหรือเปล่า

วันนี้ผมจะเข้าไปตัวจังหวัดไปเอาไฟล์สำเนาที่ผมให้เพื่อนไปทดลองใช้งาน

Re: การแปลงข้อมูล

#94

by snasui » Tue Sep 27, 2011 8:55 pm

:D ตรวจสอบว่าในฟอร์มต่าง ๆ ใช้ชื่อ Procedure ซ้ำกันหรือไม่ครับ และลองดูว่า Event MouseMove ใช้กับ Object ที่ชื่อว่า bSend หรือไม่

ช่วย Resize ภาพ หรือ Capture ภาพให้มีสัดส่วนเล็กกว่านี้อีกหน่อยครับ เนื่องจากบางเวลาผมใช้จอเล็ก ทำให้มองไม่สะดวกครับ :tt: :mrgreen:

Re: การแปลงข้อมูล

#93

by Bafnet » Tue Sep 27, 2011 8:52 pm

สวัสดีครับ
อาจารย์ครับ
ไม่ว่าจะเลือกสั่งรัน frmตัวไหนก็ Debug ลักษณะดังกล่าวหมดครับ
:roll: จะร้องแล้วแก่ก็ร้องกันครางนี้ล่ะ

Re: การแปลงข้อมูล

#92

by Bafnet » Tue Sep 27, 2011 8:41 pm

สวัสดีครับอาจารย์
เกิดเรื่องครับ
อยู่ๆก็รันโค๊ดไม่ได้ครับ
Code ที่สั่งรัน อยู่ใน frmbranch
แต่มันดันไป DeBug ที่คำสั่งที่อยู่ในfrmMain ซึ่งfrmmain ผมไม่ได้ใช้
ได้หน้าจอ Debug ดังนี้ครับ งงไปหมดแล้วครับ
pang.jpg
(201.48 KiB) Downloaded 25 times

Re: การแปลงข้อมูล

#91

by Bafnet » Thu Sep 22, 2011 11:17 pm

ขอบคุณครับ
นั่งคอยอยู่ด้วยความกังวลว่าอาจารย์จะอยู่รึป่าว
งั้นลุยเลยนะครับ
แก้ๆ :lol:

Re: การแปลงข้อมูล

#90

by snasui » Thu Sep 22, 2011 11:09 pm

Bafnet wrote:มีปัญหาครับ
เกิด Bug
ที่ r=r+1
ขณะที่ r=32768
ผมเข้าใจว่าน่าจะเป็นเพราะ Dim r AS Interger ผมอ่านจากหนังสือ
แก้ไขอย่างไรดีครับ
แก้ไขด้วยการเปลี่ยนเป็น Long อย่างที่คุณ Bufnet คิดไว้ได้เลยครับ เนื่องจาก Long จะอยู่ในช่วง -2,147,483,648 ถึง 2,147,483,647 ส่วน Integer อยู่ในช่วง -32,768 to 32,767 ซึ่งไม่พอใช้งานครับ
Bafnet wrote:อาจารย์ครับ
ถ้า Dim r As Interger แล้วเปลี่ยนเป็น AS Long
จะมีผลกับที่บางคำสั่ง r สูงสุดเป็นแค่หลักสิบ หรือร้อย
หรือไม่มีผล เพราะการกำหนดว่า As Long
เป็นแค่การกำหนดจำนวนค่าของข้อมูลว่าสูงสุดรับได้เท่าไร
ดังนั้นจึงไม่มีปัญหากับค่าต่ำสุด
ถ้าจะมีก็คือค่าที่เกินค่าสูงสุดที่รับได้
เอ..เข้าใจถุกรึป่าว
เข้าใจถูกแล้วครับ ค่าต่ำสุดก็จะขยายไปมากกว่าเดิม จึงไม่น่าจะมีผลกระทบจากการเปลี่ยนเป็น Integer เป็น Long ครับ

Re: การแปลงข้อมูล

#89

by Bafnet » Thu Sep 22, 2011 10:44 pm

อาจารย์ครับ
ถ้า Find As Interger แล้วเปลี่ยนเป็น AS Long
จะมีผลกับที่บางคำสั่ง r สูงสุดเป็นแค่หลักสิบ หรือร้อย
หรือไม่มีผล เพราะการกำหนดว่า As Long
เป็นแค่การกำหนดจำนวนค่าของข้อมูลว่าสูงสุดรับได้เท่าไร
ดังนั้นจึงไม่มีปัญหากับค่าต่ำสุด
ถ้าจะมีก็คือค่าที่เกินค่าสูงสุดที่รับได้
เอ..เข้าใจถุกรึป่าว :lol:

Re: การแปลงข้อมูล

#88

by Bafnet » Thu Sep 22, 2011 10:25 pm

สวัสดีครับอาจารย์
ขอบคุณครับสำหรับแหล่งความรู้ดีๆ ผมจะพยายามเรียนรู้ครับ
การเรียนรู้ไม่มีวันจบสิ้น
ผมหวังอย่างยิ่งว่าอาจารย์คงยังอยู่
มีปัญหาครับ
เกิด Bug
ที่ r=r+1
ขณะที่ r=32768
ผมเข้าใจว่าน่าจะเป็นเพราะ Dim r AS Interger ผมอ่านจากหนังสือ
แก้ไขอย่างไรดีครับ
ผมว่าจะเปลี่ยนเป็น Long ไหมครับไม่กล้าเปลี่ยนขอถามอาจารย์ก่อน
ตอนนี้ข้อมูลวิ่งอยู่ที่ สี่-ห้าหมื่นบรรทัดครับ
:oops:

Top