No.1
- 回答日時:
VBAにて実現できます…が、○を入力しただけで、というのは無理のようですね。
VBAを動かすためには、ボタンなどをつけなければならないので。参考URL:http://www.ops.dti.ne.jp/~allergy/vb/vbvba.html# …
No.2
- 回答日時:
こんばんは。
図のリンク貼り付けで、VBAでなくても出来るとは思いますが、私は、そちらはあまり詳しくありません。個人的には、VBAのほうが確実なような気がしています。
しかし、VBAを掲示しても、セル位置などは、今のご質問のままの文章では、かなり、自分で修正してもらわなくてもなりません。
それと、
>「前」欄に○を打ち込むと
というのは、具体的にどういうことですか?
「○」を打ち込むと、の「○」は文字なのでしょうか?
No.3
- 回答日時:
VBAになります。
対象となるシートに以下のコードを貼り付けます。
以下の条件で作成してあります。
■入力は、A1またはA2の場合になっています。
■楕円の図形はあらかじめ描いておきます。
「楕円 1」「楕円 2」という名前とし、それぞれA1とA2に対応しています。
Sub Worksheet_Change(ByVal TARGET As Excel.Range)
Select Case TARGET.Address
'A1セルの値が○の時、楕円を表示
Case "$A$1"
ActiveSheet.Shapes("楕円 1").Select
With Selection
If TARGET.Value = "○" Then
.ShapeRange.Line.Visible = msoTrue '線を表示
Else
.ShapeRange.Line.Visible = msoFalse '線を非表示
End If
End With
TARGET.Select
'A2セルの値が○の時、楕円を表示
Case "$A$2"
ActiveSheet.Shapes("楕円 2").Select
With Selection
If TARGET.Value = "○" Then
.ShapeRange.Line.Visible = msoTrue '線を表示
Else
.ShapeRange.Line.Visible = msoFalse '線を非表示
End If
End With
TARGET.Select
'A1,A2以外の時は終了
Case Else
Exit Sub
End Select
End Sub
これで、言われている内容が示現すると思うのですが、不明な点は再度ご質問して下さい。
この回答への補足
ありがとうございます。
上記のVBAばっちりでした。
あと、もう少し踏み込んで質問します。
Sheet1→一覧表、Sheet2→書類雛型として、
一覧表のA列に「番号」B列に「測点」C、D、E列に「作業前」「中」「後」で、
例えば番号1は、測点が「公園」作業が、作業中に「○」と入力します。
そこで印刷したい番号を別のセルに入力すると、書類雛型に測点「公園」作業中に楕円で囲む。とするのは可能ですか?
「2」と打込めば2のデータを、「3」とすればそれぞれでるようにしたいのですが。
楕円以外は関数でリンクできるようになったので最後に楕円の貼付けで行き詰まってます。
よろしくおねがいします。
No.4
- 回答日時:
A1に前、B1に中、C1に後と入れる。
F3に「作業」G3に「前」、H3に「中」、I3に「後」と入れる。
Sheet1のSelection_Changeイベントに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 1
Target = "○"
ActiveSheet.Shapes.AddShape(msoShapeOval, Range("G3").Left, Range("G3").Top, 26#, 16#).Select
Case 2
Target = "○"
ActiveSheet.Shapes.AddShape(msoShapeOval, Range("H3").Left, Range("H3").Top, 26#, 16#).Select
Case 3
Target = "○"
ActiveSheet.Shapes.AddShape(msoShapeOval, Range("I3").Left, Range("I3").Top, 26#, 16#).Select
Case Else
Exit Sub
End Select
Selection.ShapeRange.Fill.Visible = msoFalse
End Sub
を貼り付け。
A列、B列、C列のどこかの行をクリックするとそのセルに○が現れ、対応して、G列、H列、I列の該当の前、中、後に楕円が現れる。
お遊び程度のものですが、改良すれば使えるかもしれない。
現状欠点だらけですが、質問者の意図が十分わからず、手抜きせざるを得ない部分あり、あしからず。
ありがとうございました。
ABC以外にもクリックすると○が出るのでもう少し勉強して改良していきたいと思います。
ちなみにVBAの参考書を買えば、上記のプログラムぐらい出来るのですか?
私の中でVBAは別世界の話のように思うので手がでません。
食わず嫌い状態です。
No.5ベストアンサー
- 回答日時:
言われていることを理解できているかわかりませんが、こんな感じになると思います。
お試し下さい。
■一覧表シートにマクロを貼り付けます。
■番号の入力は、一覧表のF1セルとしています。
■書類雛形ですが、
・測点は、B1セルとしています。
・楕円はあらかじめ描いておき、"楕円 前"、"楕円 中"、"楕円 後"という名前にしてあります。
※ With Worksheets("書類雛型") としたため、
楕円図形の操作は、DrawingObjects()で行っています。
Sub Worksheet_Change(ByVal TARGET As Excel.Range)
If TARGET.Address = "$F$1" Then
If TARGET.Value > 0 Then '1以上の入力
END_ROW = Range("A65536").End(xlUp).Row '番号列の最下の行
'入力された番号を検索
For ii = 2 To END_ROW
'見つかった
If Cells(ii, "A").Value = TARGET.Value Then
INPUT_NO# = TARGET.Value '番号
SOKUTEN$ = Cells(ii, "B").Value '測点
'作業状態の検索
For kk = 3 To 5 'C列~E列
If Cells(ii, kk).Value = "○" Then
Select Case kk
Case 3: WORK_STATUS$ = "前"
Case 4: WORK_STATUS$ = "中"
Case 5: WORK_STATUS$ = "後"
End Select
Exit For 'For kk を抜ける
End If
Next kk
Exit For 'For ii を抜ける
End If
Next ii
End If
End If
'入力した番号が一覧表になかった場合終了
If INPUT_NO# = 0 Then Exit Sub
'書類雛型に転記
With Worksheets("書類雛型")
'測点
.Range("B1").Value = SOKUTEN$
'楕円を全て非表示
For Each T_OBJ In Array("楕円 前", "楕円 中", "楕円 後")
.DrawingObjects(T_OBJ).Visible = False
Next
'該当する楕円を表示
Select Case WORK_STATUS$
Case "前"
.DrawingObjects("楕円 前").Visible = True
Case "中"
.DrawingObjects("楕円 中").Visible = True
Case "後"
.DrawingObjects("楕円 後").Visible = True
End Select
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelVBAで自動調整できますか? 3 2023/08/25 22:59
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) excelのオートシェイプを使って 1 2023/01/03 16:54
- 物理学 歌口と楕円形の太鼓 1 2023/05/15 23:21
- 画像編集・動画編集・音楽編集 medibang での文字の整列の仕方 1 2023/06/02 06:38
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/10/25 09:26
- 出産 回答お願いします。 出産日 7月25日 現在産前産後休暇中です。 休暇後育児休暇予定で、出産後、出産 2 2022/09/06 22:44
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- 確定申告 【至急(TT)】間違えて入力した仮受金の処理方法についてアドバイス願います。 2 2023/03/06 16:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報