Excel_VBA_
缂栫▼鏁欑▼
(
瀹屾暣鐗?/p>
)excel
楂樼骇鏁欑▼
VBA - Excel
缂栫▼姒傚康涔?/p>
:
銆愬崟鍏冩牸鍜屽尯鍩熴�戜竴銆佸浣曞紩鐢ㄥ崟鍏冩牸鍜屽尯鍩?/p>
浣跨敤
Visual
Basic
鐨勬櫘閫氫换鍔℃槸鎸囧畾鍗曞厓鏍兼垨鍗曞厓鏍煎尯鍩燂紝鐒跺悗瀵硅鍗曞厓鏍兼垨
鍗曞厓鏍煎尯鍩熻繘琛屼竴浜涙搷浣滐紝
濡傝緭鍏ュ叕寮忔垨鏇存敼鏍煎紡銆?/p>
閫氬父鐢ㄤ竴鏉¤鍙ュ氨鑳藉畬鎴愭搷
浣滐紝璇ヨ鍙ュ彲鏍囪瘑鍗曞厓鏍硷紝杩樺彲鏇存敼鏌愪釜灞炴�ф垨搴旂敤鏌愪釜鏂规硶銆?/p>
鍦?/p>
Visual
Basic
涓紝
Range
瀵硅薄鏃㈠彲琛ㄧず鍗曚釜鍗曞厓鏍硷紝涔熷彲琛ㄧず鍗曞厓鏍煎尯鍩熴�?/p>
涓嬪垪涓婚璇存槑浜嗘爣璇嗗拰澶勭悊
Range
瀵硅薄鏈�甯哥敤鐨勬柟娉曘�?/p>
鐢?/p>
A1
鏍峰紡璁板彿寮曠敤鍗曞厓鏍煎拰鍗曞厓鏍煎尯鍩?/p>
鍙娇鐢?/p>
Range
灞炴�ф潵寮曠敤
A1
寮曠敤鏍峰紡涓殑鍗曞厓鏍兼垨鍗曞厓鏍煎尯鍩熴�備笅杩板瓙绋?/p>
搴忓皢鍗曞厓鏍煎尯鍩?/p>
A1:D5
鐨勫瓧浣撹缃负鍔犵矖銆?/p>
Sub FormatRange()
Workbooks("Book1").Sheets("Sheet1").Range("A1:D5") _
.Font.Bold = True
End Sub
涓嬭〃婕旂ず浜嗕娇鐢?/p>
Range
灞炴�х殑涓�浜?/p>
A1
鏍峰紡寮曠敤銆?/p>
寮曠敤
鍚箟
Range("A1")
鍗曞厓鏍?/p>
A1
Range("A1:B5")
浠庡崟鍏冩牸
A1
鍒板崟鍏冩牸
B5
鐨勫尯鍩?/p>
Range("C5:D9,G9:H16")
澶氬潡閫夊畾鍖哄煙
Range("A:A")
A
鍒?/p>
Range("1:1")
绗竴琛?/p>
Range("A:C")
浠?/p>
A
鍒楀埌
C
鍒楃殑鍖哄煙
Range("1:5")
浠庣涓�琛屽埌绗簲琛岀殑鍖哄煙
Range("1:1,3:3,8:8")
绗?/p>
1
銆?/p>
3
鍜?/p>
8
琛?/p>
Range("A:A,C:C,F:F")
A
銆?/p>
C
鍜?/p>
F
鍒?/p>
鐢ㄧ紪鍙峰紩鐢ㄥ崟鍏冩牸
閫氳繃浣跨敤琛屽垪缂栧彿锛屽彲鐢?/p>
Cells
灞炴�ф潵寮曠敤鍗曚釜鍗曞厓鏍笺�傝灞炴�ц繑鍥炰唬琛ㄥ崟涓?/p>
鍗曞厓鏍肩殑
Range
瀵硅薄銆備笅渚嬩腑锛?/p>
Cells(6,1)
杩斿洖
Sheet1
涓婄殑鍗曞厓鏍?/p>
A6
锛岀劧
鍚庡皢
Value
灞炴�ц缃负
10
銆?/p>
Sub EnterValue()
Worksheets("Sheet1").Cells(6, 1).Value = 10