| |
こんばんは。
色に関しては、本気でやる場合は、
www.loadsystem.net/api/lsapi3.txt
の
Public Function Y_GetColorDialog(ByRef color As Long) As Long
'***********************************************************
'機能 : 「色指定」ダイアログを表示する
'戻り値: 1:色が選択された 0:[キャンセル]ボタンを押された
' 引数colorに選択された色コードをセットします
'***********************************************************
この辺りを使います（ＡＰＩです）。
簡単に済ませたい場合は、
nyama.jpn.org/otto/xlstip.shtml#7
これですね
例
Sub Test()
If Application.Dialogs(xlDialogEditColor).Show(1) Then
Range("a1").Interior.ColorIndex = 1
End If
End Sub
大抵は、↑この簡単な方かな！！
|
|
ichinose
- 07/11/26(月) 21:34 -
