Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Excel 2010)
現在のセル内容を別のセルに表示
投稿日時: 19/07/02 10:33:48
投稿者: なならら

一覧表で入力をしています。
 
パソコンの画面が小さく、文字が見づらいとのことでZoom機能を使ってもらっていましたが面倒といわれ困っています。
 
A1セルに入力時(A1だけでなくアクティブなセルに対して大きくしたい)
B1セルに同じものが表示できないでしょうか。
 
B1を結合して大きく表示するつもりです。
 
よろしくお願いします

回答
投稿日時: 19/07/02 11:20:46
投稿者: Suzu

引用:
A1セルに入力時(A1だけでなくアクティブなセルに対して大きくしたい)

引用:
B1を結合して大きく表示するつもりです。

 
どこと結合して?
何を大きくしたいのでしょうか?
 
 
引用:
B1セルに同じものが表示できないでしょうか。

B1セルにアクティブセルの値を表示したいという事でしょうか?
 
 
引用:
画面が小さく、文字が見づらいとのことでZoom機能を使ってもらっていましたが面倒

Zoom機能。それは、Excelの ズームでしょうか?
Windowsの虫眼鏡機能はいかがでしょう?
 
 
本筋は
・モニターを大きくする。
・モニターの解像度を下げ、大きく見せる
辺りなのでは?

投稿日時: 19/07/02 11:46:35
投稿者: なならら

ご意見ごもっともですが、パソコン買い替えや、大きなモニターを購入できるほど余裕のある会社ではありません。
高齢化に伴い一つのセルの大きさを大きくするようにしていますが、そうすると全体が見づらくなってしまいました。
 
ZoomはExcelの機能です。200%とにして使っています。
 
>B1セルにアクティブセルの値を表示したいという事でしょうか?
 
そうしたいです。

回答
投稿日時: 19/07/02 13:46:52
投稿者: よろずや

'標準モジュールに以下を書く
Function ZoomAC()
    Application.Volatile
    ZoomAC = ActiveCell.Value
End Function
 
B1セルに以下を書く
=ZoomAC()

回答
投稿日時: 19/07/02 14:07:07
投稿者: WinArrow
投稿者のウェブサイトに移動

ヒントになるかな?
 
 
シートに、図形のテキストボックスを置きます。
大きさ、文字サイズは任意
カーソルのあるセルのデータを図形に表示する」だけの機能です。
文字サイズを大きくすればズームとしても使えます。
 
シートモジュール(例、sheet1)に↓のようなプロシジャを作成します。
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Shapes(1).TextFrame.Characters.Text = Target.Value
     
End Sub
 

投稿日時: 19/07/03 09:18:29
投稿者: なならら

よろずやさん
WinArrowさん
 
思い通りになりました!
 
ありがとうございます。大変助かりました。