質問日時: 2020/12/13 20:09 回答数: 3 件 マクロ初心者です。 例えば『B2に「1」と入力したら「りんご」と表示、「2」と入力したら「ばなな」表示、2桁入力したら「エラー」表示、3桁入力したらD1を参照する』マクロ構文を登録しているとします。 これと同じマクロを、B2〜B100のセルそれぞれに適用する場合はどのようにすればいいですか? ※実際のデータは社外秘のため添付できないので、参考画像はNumbersで失礼します。 No. 3 回答者: goomania 回答日時: 2020/12/18 23:56 No. 2さんが既に回答されていますが、私も、シートのChangeイベントで登録しているのではないかと思います。 B2:B100のセルに入力があったとき、ご質問者の提示された挙動をするVBAは以下のようなものです。 ただし、ご質問者は >3桁入力したらD1を参照する とおっしゃっていますが、添付画像を見る限り、 「3桁入力したら同行のD列を参照する」という挙動なのではないかと思い、そのように修正してあります。 Private Sub Worksheet_Change(ByVal Target As Range) If = 1 Or > 100 Then Exit Sub If <> 2 Then Exit Sub Application. 【エクセル】行を挿入する時、表の計算式を自動コピーする方法 | 経理課長の仕事術|. EnableEvents = False If = 1 Then = "りんご" Else If = 2 Then = "ばなな" Else If > 9 And < 100 Then = "エラー" Else If > 99 And < 1000 Then = (0, 2) End If End If End If End If Application. EnableEvents = True End Sub 0 件 No. 2 fujillin 回答日時: 2020/12/13 21:06 こんばんは >~~マクロ構文を登録しているとします。 実際のマクロを見ないとわかりませんが、推測するところ、シートのChangeイベントで登録しているのではないかと思います。 以下はその推測にもとずいていますので、違っている場合はスルーしてください。 Changeイベントを複数登録することはできないので、同じイベント処理内で処理することになります。 現在の処理では、変わったセルがB2の時だけ反応するように、B2セルの判定を行っていると想像しますが、まず、それをB2:B100に変更します。 参照するセルがD1固定なら(多分)そのままでもよい可能性はありますが、行に依存する場合は、変わったセルの位置にからの相対的な位置を参照するというように、コードを一般化する必要があるかもしれません。 上記の修正を行うことで、ご質問の内容を実現できるものと想像します。 No.
1 yucco_chan 回答日時: 2020/12/13 20:47 … 他に、VBAを起動させておいて、キー入力に従って イベントを実施する方法もあります。 お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう! このQ&Aを見た人はこんなQ&Aも見ています
エラーが出たらチェック! よくある間違い 1 Range やSelect、Value の綴りが間違っている 2 文字列やB3が" "(ダブルクォーテーション)で囲まれていない 3 Select やValue の前に. (ピリオド)がない (本稿は、寺澤伸洋著 『4時間のエクセル仕事は20秒で終わる』 を抜粋、再構成したものです)
運賃・料金 明石 → 京都 片道 4, 500 円 往復 9, 000 円 2, 240 円 4, 480 円 4, 300 円 8, 600 円 2, 140 円 4, 280 円 所要時間 7 時間 30 分 22:43→06:13 乗換回数 2 回 走行距離 102. 1 km 22:43 出発 明石 乗車券運賃 きっぷ 1, 870 円 930 e特急券 160 80 4分 3. 4km JR山陽本線 快速 22:47着 22:55発 西明石 23分 59. 7km こだま872号 特急料金 自由席 1, 760円 880円 2, 700円 1, 350円 23:18着 06:00発 新大阪 13分 39. 0km のぞみ200号 870円 430円 1, 440円 710円 条件を変更して再検索
乗換案内 明石 → 京都 時間順 料金順 乗換回数順 1 22:43 → 06:13 早 安 楽 7時間30分 4, 500 円 乗換 2回 明石→西明石→新大阪→京都 22:43 → 00:16 1時間33分 3, 630 円 明石→西明石→新大阪→京都 距離の短い特急を利用した経路です 22:43 発 06:13 着 乗換 2 回 1ヶ月 109, 700円 (きっぷ12日分) 3ヶ月 312, 610円 1ヶ月より16, 490円お得 86, 810円 (きっぷ9. 5日分) 247, 420円 1ヶ月より13, 010円お得 JR山陽本線 快速 播州赤穂行き 閉じる 前後の列車 こだま872号 新大阪行き 閉じる 前後の列車 1駅 25番線着 26番線発 のぞみ200号 東京行き 閉じる 前後の列車 11番線着 22:43 発 00:16 着 78, 300円 (きっぷ10. 「明石駅」から「京都駅」電車の運賃・料金 - 駅探. 5日分) 223, 150円 1ヶ月より11, 750円お得 56, 110円 (きっぷ7. 5日分) 159, 920円 1ヶ月より8, 410円お得 5番線発 JR東海道本線 快速 野洲行き 閉じる 前後の列車 8駅 23:47 茨木 23:53 高槻 23:58 島本 00:00 山崎(京都) 00:04 長岡京 00:08 向日町 00:10 桂川(京都) 00:13 西大路 2番線着 条件を変更して再検索
3km 兵庫県立大学 明石キャンパス - 北西約1.
出発 明石 到着 京都 逆区間 JR山陽本線(神戸-岡山) の時刻表 カレンダー
ビジネスホテル …4000円~ 旅館 …10000円~ カプセルホテル …2500円~ ゲストハウス …1500円~ 1泊・1人利用の場合 は、上記の値段が目安になってくるかと思います。 主な宿泊予約サイト 大型連休やイベント開催時はホテルが埋まりやすいため、予定が決まり次第、早めに予約をするといいでしょう。 クレジットカード(チケット購入や宿泊予約の決済にとても便利です) JRの新幹線や特急列車のきっぷ・航空券・高速バスのチケットの予約・購入や、宿泊の予約は、インターネットから行うのが便利ですが、クレジットカード決済のみ対応というサービスも多い です。 銀行振込やコンビニ支払いに対応しているサービスもありますが、少々面倒です。 クレジットカードを持っていれば、インターネット上ですぐに決済が可能なほか、ポイントが貯まります! おすすめのクレジットカード ポケットWi-fi・動画配信サービス(待ち時間や移動時間の暇つぶしにおすすめ!) 鉄道・バスなどの待ち時間や移動時間を退屈に感じる方は少なくないでしょう。 ポケットWi-fiを利用すれば、パケット通信の容量を気にせず、外出先でも動画視聴が可能です! 動画視聴ができれば、退屈な時間を楽しい時間に変えられるでしょう! 明石から京都 時刻表（ＪＲ山陽本線(神戸-岡山)） - NAVITIME. おすすめのポケットWi-fi どんなときもWi-fi …月額約3500円でネット使い放題。海外での利用も可能です。 おすすめの動画配信サービス U-NEXT …国内最大級の動画配信サイトです。洋画・邦画・ドラマ・アニメなど、様々なジャンルを配信しています。 初回は31日間無料 です。 全国各地のお土産を購入できる「JTBショッピング」 (画像: JTBショッピング より) 旅行先や帰省先などに行かれた際にはおみやげを購入される方がほとんどでしょう。 「親戚・ご近所さん・会社の方々へなど、おみやげをたくさん購入すると荷物になるのは、面倒だなぁ…」 JTBショッピングなら、全国各地や海外のお土産を購入することができ、自宅に届けてもらうことが可能です! 注文完了後、最短で3~4日後のお届けが可能です。旅行先・帰省先から帰宅後の日にちにお届け日を指定すると、スムーズにお土産の受け取りができます。 たくさん、お土産を購入したい方におすすめです! 「DMMいろいろレンタル」ならスーツケース・カメラ・スーツなどのレンタルが可能!