Results of 0 - 1 of about 0 (0.000 sec.)
- [[20020829102142]]
- @digest: 51fd06afc735ec3844f0cd34b7f8b7b7
- @id: 459
- @mdate: 2003-04-29T06:43:54Z
- @size: 1480
- @type: text/plain
- #keywords: 英・ (20437), 米" (19043), ・国 (14608), 本米 (14319), 日米 (7005), 国中 (6721), に米 (6309), 米と (6309), 者s (6235), 本" (4537), ・本 (3875), 日・ (1867), 字入 (1273), 力セ (1202), 務局 (1166), 連動 (1113), 囲名 (1051), 前ボ (862), ア) (704), 本の (674), 動入 (665), で範 (584), cells (571), case (547), シニ (519), 事務 (515), に連 (492), ニア (488), target (487), 記コ (411), が少 (387), 入力 (375)
- 『文字入力セルに連動して別のセルに文字を入力』（初心者S）
文字入力セルに連動して別のセルに文字を自動入力できるか 仮に、日という文字をA1のセルに入力したとき B1のセルに自動的に米と表示するようにできるのでしょうか。 また、日あるいは本の場合に米と表示するように またまた、日・本の場合は米と表示し、英・国の場合は中と、それ以外は空白 などということはできるのでしょうか。 ----- 下記のように入力し、仮にこの範囲を選択して、名前ボックスにDATAと入力して範囲名をつけます。 日 米 本 米 日・本 米 英・国 中 B1に =IF(A1="","",VLOOKUP(A1,DATA,2,0)) と入力すれば表示されます。 (シニア) ------------------------------------------ マクロであれば、シート1のモジュールに下記コードで、可能かと思います。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = Cells(1, 1) Then Select Case Cells(1, 1).Value Case "日" Cells(1, 2) = "米" Case "本" Cells(1, 2) = "米" Case "日・本" Cells(1, 2) = "米" Case "英・国" Cells(1, 2) = "中" Case Else Cells(1, 2) = "" End Select Else: Exit Sub End If End Sub （なお） ---- こんにちは、 If Target.Cells = Cells(1, 1) Then の場合ですと画面が少しちらつく感じがするので If Target.Address = "$A$1" Then で範囲を絞るのも手かと思います。 あとは intersectメソッドで範囲を指定するやり方も 参考までに・・・・・・・ （尋） ---- こちら事務局です、タイトルが少し長いので、修正しました。 （kazu）... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200208/20020829102142.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97048 documents and 608235 words.
訪問者：