Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8161 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34878】カーソルの解除（セルの選択を外す） ふみ 06/2/15(水) 19:11 質問[未読]
【34880】Re:カーソルの解除（セルの選択を外す） ぱっせんじゃー 06/2/15(水) 19:36 発言[未読]
【34881】Re:カーソルの解除（セルの選択を外す） ichinose 06/2/15(水) 19:38 発言[未読]
【34882】Re:カーソルの解除（セルの選択を外す） ichinose 06/2/15(水) 19:50 発言[未読]
【34911】Re:カーソルの解除（セルの選択を外す） Kein 06/2/16(木) 1:00 発言[未読]
【34923】Re:カーソルの解除（セルの選択を外す） ふみ 06/2/16(木) 10:21 お礼[未読]
【34878】カーソルの解除（セルの選択を外す）
質問  ふみ  - 06/2/15(水) 19:11 -
引用なし
パスワード
   いつも参考にさせていただいています。
マクロにて作成したログを提出するのですが
見栄えを良くしたいため、カーソルを見えなく
（どのセルも選択されていない状態）したいのですが、
可能でしょうか？

方法が存在するならご教授願います
【34880】Re:カーソルの解除（セルの選択を外す）
発言  ぱっせんじゃー  - 06/2/15(水) 19:36 -
引用なし
パスワード
   IV65536あたりを選択した状態にして保存するとか？

カーソルの色を変えたりは出来ないようです。
テキストファイルで渡す、ではダメなのですよね？
【34881】Re:カーソルの解除（セルの選択を外す）
発言  ichinose  - 06/2/15(水) 19:38 -
引用なし
パスワード
   ▼ふみ さん
こんばんは。
>いつも参考にさせていただいています。
>マクロにて作成したログを提出するのですが
>見栄えを良くしたいため、カーソルを見えなく
>（どのセルも選択されていない状態）したいのですが、
>可能でしょうか？
>
>方法が存在するならご教授願います
新規ブックの標準モジュールに
'========================================
Sub Macro1()
　　With Cells
　　　 .Locked = True
　　　 .FormulaHidden = False
　　　 With .Parent
　　　　　.EnableSelection = xlNoSelection
　　　　　.Protect
　　　　　End With
　　　 End With
End Sub


これで試してみて下さい。
【34882】Re:カーソルの解除（セルの選択を外す）
発言  ichinose  - 06/2/15(水) 19:50 -
引用なし
パスワード
   失礼しました。

>新規ブックの標準モジュールに
>'========================================
Sub Macro1()
　 With ActiveSheet
　　　.EnableSelection = xlNoSelection
　　　.Protect
　　　End With
End Sub
これでＯＫでした。
【34911】Re:カーソルの解除（セルの選択を外す）
発言  Kein  - 06/2/16(木) 1:00 -
引用なし
パスワード
   >マクロにて作成したログを提出
というのが、具体的にどんなことをするのか分かりませんが、ただシートの見た目のみ
でよいのなら、画面上の可視範囲から適当に離れたセルを、スクロールを使って選択
しておき、もう一度スクロールして元の可視セル範囲を画面に出し、PrintScreenキー
を押して画像として取り込み、保存する。というのではダメなのかな・・?
【34923】Re:カーソルの解除（セルの選択を外す）
お礼  ふみ  - 06/2/16(木) 10:21 -
引用なし
パスワード
   ありがとうございます。
試させていただきました。

>他の（目立たない）セルを選択する
それでもよかったんですが、
同じ一文を追加するならいっそ消せないものかと
思いまして


みなさん、ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8161 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free