300 ตัวอย่าง

เน้น Active Cell

Highlight Active Cell

ด้านล่างเราจะดูโปรแกรมใน Excel VBA นั่น ไฮไลท์แถวและคอลัมน์ของ Active Cell (เซลล์ที่เลือก) โปรแกรมนี้จะสร้างความประทับใจให้เจ้านายของคุณ





สถานการณ์:

เน้น Active Cell ใน Excel VBA





ทุกครั้งที่เราเปลี่ยน Active Cell บน Sheet1 จะต้องดำเนินการมาโคร คุณสามารถทำได้โดยการสร้าง Worksheet SelectionChange Event

วิธีรวมชื่อใน excel ด้วยลูกน้ำ

1. เปิด โปรแกรมแก้ไข Visual Basic .



2. ดับเบิลคลิกที่ Sheet1 (Sheet1) ใน Project Explorer

3. เลือก แผ่นงาน จากรายการดรอปดาวน์ด้านซ้าย เลือก SelectionChange จากรายการดรอปดาวน์ด้านขวา

แผ่นงาน SelectionChange Event ใน Excel VBA

เพิ่มบรรทัดรหัสต่อไปนี้ในเหตุการณ์ Select Change Change:

4. เราประกาศตัวแปรสี่ตัวประเภท Integer หนึ่งชื่อ rowNumberValue หนึ่งชื่อ columnNumberValue หนึ่งชื่อ i และอีกอันหนึ่งชื่อ j

ไม่มีrowNumberValueเนื่องจาก จำนวนเต็ม, columnNumberValueเนื่องจาก จำนวนเต็ม, ผมเนื่องจาก จำนวนเต็ม, NSเนื่องจาก จำนวนเต็ม

5. ขั้นแรก เราเพิ่มบรรทัดที่เปลี่ยนสีพื้นหลังของเซลล์ทั้งหมดเป็น 'ไม่เติม'

วิธีหาเศษเหลือใน excel
Cells.Interior.ColorIndex = 0

6. เราเริ่มต้นตัวแปร rowNumberValue ด้วยหมายเลขแถวของ Active Cell และตัวแปร columnNumberValue ด้วยหมายเลขคอลัมน์ของ Active Cell

rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column

7. เราเน้นคอลัมน์สีน้ำเงิน นั่นคือ: เซลล์ทั้งหมดที่มีหมายเลขแถวเล็กกว่าหรือเท่ากับ rowNumberValue และหมายเลขคอลัมน์เท่ากับ columnNumberValue

สำหรับผม = 1ถึงrowNumberValue
เซลล์ (i, columnNumberValue).Interior.ColorIndex = 37
ต่อไปผม

คำอธิบาย: สำหรับตัวอย่างนี้ (ดูภาพด้านบน) rowNumberValue เท่ากับ 12 และ columnNumberValue เท่ากับ 8 บรรทัดโค้ดระหว่าง For และ Next จะถูกดำเนินการสิบสองครั้ง สำหรับ i = 1 Excel VBA จะกำหนดสีเซลล์ที่จุดตัดของแถวที่ 1 และคอลัมน์ที่ 8 สำหรับ i = 2 Excel VBA จะกำหนดสีเซลล์ที่จุดตัดของแถวที่ 2 และคอลัมน์ที่ 8 เป็นต้น

หมายเหตุ: แทนที่จะใช้ ColorIndex หมายเลข 37 (สีน้ำเงิน) คุณสามารถใช้หมายเลข ColorIndex ใดก็ได้

8. ในทำนองเดียวกัน เราเน้นแถวสีน้ำเงิน นั่นคือ: เซลล์ทั้งหมดที่มีหมายเลขแถวเท่ากับ rowNumberValue และหมายเลขคอลัมน์เล็กกว่าหรือเท่ากับ columnNumberValue

สำหรับเจ = 1ถึงคอลัมน์NumberValue
เซลล์ (rowNumberValue, j).Interior.ColorIndex = 37
ต่อไปNS

9. ตอนนี้ได้เวลาทดสอบโปรแกรมแล้ว ดาวน์โหลดไฟล์ Excel และดูว่ามีการเน้นแถวและคอลัมน์ของเซลล์ที่ใช้งานอยู่ในแต่ละครั้งที่คุณเปลี่ยน Active Cell อย่างไร

3/6 สำเร็จ! เรียนรู้เพิ่มเติมเกี่ยวกับกิจกรรม >
ไปที่บทถัดไป: Array



^