anglar回答ポイントなし

次の条件で、エクセルの２００７以上で動作するコードを教えてください。

　現在、一つのブック（Ａブック）を左右の２画面に分けて連動するように表示されているとします。左画面は「Ａブック.xlsm:1のシート名が【合体】シート」です。右画面は「Ａブック.xlsm:2のシート名が【勤務①】シート」です。
　２つのシートは２次元表になっていて、全く同じ構造です。また、右画面は勤務①シートから勤務⑥シートまで切り替えていきます。また、左画面は６枚のシートをCONCATENATEしてテキストデータを連結しています。６枚のシートの連結の結果、左画面の任意セルはフォントを小さくしないと，セル内のテキスト文字の全体が見えません。

　やりたいことは、右画面が常にアクティブシートとなるという条件で、ユーザーフォームを起ち上げた後、右画面でセル一つ、例えばF8セルをクリックすると、左画面のF8セル内容が虫眼鏡のようにテキストボックスに拡大表示されることです。

　ただし、アドインソフトではなく、VBAでお願いします。また、フォントを小さくして拡大表示ということは求めていません。よろしくお願いします。

ログインして回答する

みんなの回答

robbie212018/11/24 12:46:01

簡易にコメント機能を使って作ってみましたがどうでしょうか。
以下のコードをワークシートのイベントとして作成してください。

Dim 表示シート As Worksheet

Private Sub Worksheet_Activate()
    Set 表示シート = Worksheets("合体")
End Sub

Private Sub Worksheet_Deactivate()
    表示シート.Cells.ClearComments
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set 表示シート = Worksheets("合体")
    
    表示シート.Cells.ClearComments
    Dim 表示セル As Range
    Set 表示セル = 表示シート.Range(Target.Address)

    Dim Comment As Comment
    Set Comment = 表示セル.AddComment("合体" & Chr(10) & 表示セル.Value)
    
    '表示位置の指定
    Comment.Shape.Top = 0 'セルのそばに表示したい場合は削除
    Comment.Shape.Left = 0 'セルのそばに表示したい場合は削除
    
    Comment.Visible = True
End Sub

#イベントの作成仕方がわからない場合はまたたずねてくれたら。

スター

この質問へのコメント

コメントはありません

この質問への反応（ブックマークコメント）

質問の情報

登録日時: 2018-11-19 16:37:41
終了日時: 2018-11-26 16:40:05
回答条件: 1人5回まで

この質問のカテゴリ

コンピュータ