●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

656:デフォルトの名無しさん
 07/08/20 06:35:04 
Private Sub Workbook_Open() 
処理 
End Sub

657:デフォルトの名無しさん
 07/08/20 21:11:30 
1,エクセルの左側にあらかじめ設定している列を折りたためる、ボタンがあるシートがあるんですけど、 
どのように設定すればいいのでしょうか？ 
2、functionを使用して、同じ計算式をマクロに計算させようとすると、5倍位時間がかかるようになりました。 
どのような対策を取ればいいのでしょうか？

658:デフォルトの名無しさん
 07/08/20 21:21:42 
1 そのまんま。そのボタンに列の表示非表示を切り替えるマクロを登録すればいいだけ。 
2 ワークシート関数よりユーザー定義関数の方が遅いのは当然だが､そういうことじゃないのか？ 
　違うなら日本語で質問してくれ。あとそのFunctionの内容も書くこと。

659:デフォルトの名無しさん
 07/08/20 22:26:26 
>>657 
1.グループ化の事か？

660:631
 07/08/21 01:22:25 
本やみなさんの意見を参考にしながら一応、出来たのですが 
 
Sub セル範囲を指定して格子罫線を引く() 
 
Dim Rng As Range 
Set Rng = Application.InputBox("セル範囲を指定してください", "セル範囲の指定", Type:=8) 
Rng.Borders.LineStyle = xlContinuous 
End Sub 
 
少し、改造すれば、セル範囲を指定してセルの色を塗り替えるにもできます（せっかく、作ったので、良かったら参考にして下さい） 
これに、キャンセルしたときに「入力されませんでした」と表示するようにしたいのですが、どうもわかりません 
 
Sub セル範囲を指定して格子罫線を引く2() 
 
Dim jis As Range 
Set jis = Application.InputBox("セル範囲を指定してください", "セル範囲の指定", Type:=8) 
 If jis <> "" Then         
 Rng.Borders.LineStyle = xlContinuous 
 else 
  msgbox"シート名が入力されませんでした"  
 End If 
End Sub 
 
上のソースだとエラーになってしまいます 
お手数ですが、ご指導お願いします。

次ページ