::VB::

posted on 05 Dec 2007 19:46 by goodbaby

กฎการตั้งชื่อมาโคร

1.         ใช้ได้ทั้งภาษาไทยและภาษาอังกฤษ แต่นิยมใช้ภาษาอังกฤษมากกว่า

2.         ต้องขึ้นต้นด้วยตัวอักษร  ห้ามขึ้นต้นด้วยตัวเลข

3.         ไม่มีการเว้นวรรค หากต้องการเว้นวรรคให้ใช้เครื่องหมายขีดล่าง “_”  แทน

4.         ห้ามมีเครื่องหมายต่อไปนี้ปนอยู่ในชื่อ + - * / > < = ~ , % $ & @ # !

การใส่หมายเหตุ (Comment) ในมาโคร

                หมายเหตุมีไว้เพื่ออธิบายโปรแกรม  ซึ่งจะไม่มีผลต่อการทำงานของโปรแกรม  โดยการใส่หมายเหตุมี 2 วิธี ดังนี้

            1. ใช้คำสั่ง Rem ข้อความหมายเหตุ

            2. ใช้เครื่องหมาย ข้อความหมายเหตุ

ชนิดของตัวแปร

คำอธิบาย

ขนาด

Byte

จำนวนเต็มบวก 0-255

1 ไบต์

Boolean

True(-1), False(0)

2 ไบต์

Integer

จำนวนเต็มระหว่าง -32768 ถึง 32767

2 ไบต์

Long

จำนวนเต็มระหว่าง -2,147,486,648 ถึง2,147,486,648

4 ไบต์

currency

เลขทศนิยม (4 ตำแหน่ง)

8 ไบต์

single

เลขทศนิยม

4 ไบต์

Double

เลขทศนิยม (ช่วงกว้างของตัวเลขมีค่ามากกว่า single)

8 ไบต์

Date

วันที่

8 ไบต์

String

ตัวอักษร

1 ไบต์

กฎการตั้งชื่อตัวแปร

1.         ตัวอักษรแรกของชื่อจะต้องเป็นตัวอักษร เช่น A-Z หรือ ก-ฮ

2.         ตัวถัดไปจะเป็นตัวอักษร ตัวเลข หรือเครื่องหมาย  _  ก็ได้

3.         ชื่อของตัวแปรจะต้องไม่ซ้ำกับคำสงวน (Reserved Word)

4.             ตัวอักษรที่ใช้ในการตั้งชื่อ เป็นได้ทั้งตัวใหญ่ ตัวเล็ก หรือภาษาไทย และมีความยาวเท่าใดก็ได้

                *ข้อสังเกต ตัวแปรใน Visual Basic จะไม่สนใจอักษรตัวใหญ่ตัวเล็ก (Non-case Sensitive)  นั่นคือ  ถ้าเราตั้งชื่อตัวแปร  intAge, intage, IntAge ซึ่งทั้งสามชื่อจะถือว่าเป็นตัวเดียวกัน

การกำหนดประเภทของตัวแปร

รูปแบบ              Dim ชื่อตัวแปร As ชนิดของตัวแปร

 

 

 

Operator

ใช้สำหรับ

^

ยกกำลัง

+

บวกค่าตัวเลข

-

ลบค่าตัวเลข

*

คูณตัวเลข

/

หารตัวเลข

\

หารตัวเลข คืนค่าเป็นจำนวนเต็ม

Mod

หารตัวเลข คืนค่าเฉพาะเศษที่เหลือ

ลำดับความสำคัญของเครื่องหมาย

1.             ถ้ามีวงเล็บทำวงเล็บในสุดก่อน

2.             เครื่องหมายยกกำลัง

3.             เครื่องหมายคูณ และหาร

4.             เครื่องหมายบวก และลบ

5.             เครื่องหมายที่มีลำดับความสำคัญเท่ากันให้ทำจากซ้ายไปขวา

โอเปอเรเตอร์สำหรับเปรียบเทียบ

=                                          เท่ากับ

            < >                       ไม่เท่ากับ

            <                                          น้อยกว่า

            >                                          มากกว่า

            < =                       น้อยกว่าหรือเท่ากับ

            > =                       มากกว่าหรือเท่ากับ

            Like                     ค่าสตริงทั้งสองข้างเหมือนกัน

Not      ใช้กลับค่าของนิพจน์            Not(10 > 4)

And     และ                                                         if (x=5 And y=10)

Or                    หรือ                                                        if (x=5 Or y=10)

 

 

 

 

 

 

 

q     การสร้าง Workbooks ใหม่

                                                Workbooks.Add

q     ActiveWorkbook.SaveAs Filename:="newName" บันทึกไฟล์ที่กำลังเปิดใช้งานอยู่เป็นชื่อ newName

q     การปิดใช้งาน Workbooks

                                Workbooks("ชื่อ workbooks").Close

q      การนับจำนวน Workbooks

                                Workbooks.Count

q     การเปลี่ยนชื่อ Worksheets

                  Workbooks(1).Worksheets(1).Name ="myWorksheet"

q      การลบ Worksheets

                                Worksheets("ชื่อ Worksheets").Delete

q     การเพิ่ม Worksheets

                                    Worksheets.Add

q     การ copy worksheets

                                Worksheets(2).Copy before:=Worksheets(3)

                        Worksheets(2).Copy after:=Worksheets(3)

                                Worksheets(2).Copy

q     Workbooks(1).Worksheets(1).Cells(1, 1).Value = 20

q      Workbooks(1).Worksheets(1). Range("A8").Value = 20

q     Workbooks(1).Worksheets(1). Range(“A1:A8").Value = 20

การแทรกแถว

q     Rows(3).Insert

q      Rows("2:4").Insert

การลบแถว

q     Rows(1).Delete

q      Rows("1:3").Delete

การแทรกคอลัมน์

q                     Columns(1).Insert

q                     Columns ("A:B").Insert

การลบคอลัมน์

q                     Columns(1).Delete

q                     Columns("A:C").Delete

การลบค่าในเซลล์

            Workbooks(1).Worksheets(1).Cells(1, 1).Clear

            Workbooks(1).Worksheets(1).Cells(1,1).ClearContents

            Workbooks(1).Worksheets(1).Cells(1, 1).ClearFormats

Comment



smilebig smileopen-mounthed smileconfused smilesad smileangry smiletonguequestionembarrassedsurprised smilewinkdouble winkcry

Tweet