No.3ベストアンサー
- 回答日時:
>B列の各行に3(or2or1)を入力をしたらA列の数字に…
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける
private sub Worksheet_Change(byval Target as excel.range)
dim h as range
on error resume next
for each h in application.intersect(target, range("B:B"))
if h.value = 1 or h.value = 2 or h.value = 3 then
application.enableevents = false
cells(h.row, "A") = application.rounddown(cells(h.row, "A") * h * 0.1, 0)
application.enableevents = true
end if
next
end sub
ファイルメニューから終了してエクセルに戻る
A列に数字を準備し、B列に1か2か3を記入する。
この回答へのお礼
お礼日時:2014/04/24 19:21
keithin様!
ご回答ありがとうございます♪
すごいです。。。これで計算式をファイルにいれなくても
自動で変換してくれます(´;ω;`)
1~3以外の数字を入れたらそのまま表示してくれるし完璧です。
本当に感謝いたします!
No.2
- 回答日時:
マクロではなくIF関数を使った例です。
VISTA+EXCEL97で確認しました。
C5セルに
=IF(B5=3,A5*0.3,IF(B5=2,A5*0.2,IF(B5=1,A5*0.1,"")))
と入力してください。コピペでもいいです。
これで、A5セルに計算対象、B5セルに3,2,1を入力すると
C5セルに演算結果が出ます。
これで、あとはC5セルをオートフィルするだけで何行でもイケます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) 先頭と末尾を指定して連続した数字を入力 1 2022/09/14 13:12
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Visual Basic(VBA) A列にある値をB列・C列にVBAで切り出し 3 2022/04/09 19:20
- Excel(エクセル) エクセルのマクロを教えてください。 1 2022/03/30 09:29
- その他(プログラミング・Web制作) プログラミング pythonの問題について 2 2022/04/19 00:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
背景色の有無を判断をして別の...
-
任意のセルに小計、合計と入力...
-
Excelで全シートから検索し列で...
-
EXCELで2つの数値のうち大きい...
-
エクセルで二つの数字の小さい...
-
Excelで隣のセルと同じ内容に列...
-
PowerPointで表の1つの列だけ...
-
「B列が日曜の場合」C列に/...
-
エクセルでオートフィルタのボ...
-
エクセルで最初のスペースまで...
-
VBAで文字列を数値に変換したい
-
エクセルのオートフィルタで最...
-
SUMIFとCOUNTIFを合わせたよう...
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
エクセル 文字数 多い順 並...
-
えエクセルで○は1とし△は0.5で...
-
エクセル(勝手に太字になる)
-
エクセルで、2種類のデータを...
-
エクセルで時刻(8:00~20:00)...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
背景色の有無を判断をして別の...
-
任意のセルに小計、合計と入力...
-
結合のループ処理のマクロ
-
Excelで全シートから検索し列で...
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセルで、2種類のデータを...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセル 同じ値を探して隣の...
-
エクセルでオートフィルタのボ...
-
SUMIFとCOUNTIFを合わせたよう...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
おすすめ情報