VBA Excel ให้ Cell ที่เลือกมีสี เพิ่มสีให้ cell ที่เลือก
ตัวอย่างที่ทำที่ sheet1 มีขั้นตอนดังนี้ 1. สร้างชื่อที่ A2 และ A3 เป็นชื่อ Pcell และ Ccell ตามลำดับ 2.ที่ A1 ให้สร้างสูตร =Pcell 3.Copy code ไปว่างที่ VBA editor ของ Sheet1 code '----------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ss As String With ActiveCell .Interior.ColorIndex = 5 End With ActiveWorkbook.Names("Pcell").RefersTo = ActiveWorkbook.Names("Ccell").RefersTo ActiveWorkbook.Names("Ccell").RefersTo = "=""" & Target.Address(False, False) & """" ss = Range("A1").Value Range(ss).ClearFormats End Sub '------------------------------------
การสร้างชื่อด้วย Name manager
Create Date : 04 มกราคม 2557 |
Last Update : 4 มกราคม 2557 12:46:42 น. |
|
0 comments
|
Counter : 1559 Pageviews. |
|
|