Excel VBA質問箱 IV

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

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


8152 / 13646 ツリー ←次へ | 前へ→

【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
これでOKでした。

【34911】Re:カーソルの解除(セルの選択を外す)
発言  Kein  - 06/2/16(木) 1:00 -

引用なし
パスワード
   >マクロにて作成したログを提出
というのが、具体的にどんなことをするのか分かりませんが、ただシートの見た目のみ
でよいのなら、画面上の可視範囲から適当に離れたセルを、スクロールを使って選択
しておき、もう一度スクロールして元の可視セル範囲を画面に出し、PrintScreenキー
を押して画像として取り込み、保存する。というのではダメなのかな・・?

【34923】Re:カーソルの解除(セルの選択を外す)
お礼  ふみ  - 06/2/16(木) 10:21 -

引用なし
パスワード
   ありがとうございます。
試させていただきました。

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


みなさん、ありがとうございました

8152 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free