![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
excel マクロで、指定した列のセルに「1」を入力すると、「合計 1枚」というように、
前後に文字が自動で入るようにするにはどう書けば出来るでしょうか。
例:「100」⇒「合計 100枚」となります。
今私が出来る方法は下記のコードのものですが、設定したいシートは複数枚あり、それぞれ100回書くのは大変なので、省略できればと思っています。
別シートに記載しているものから引っ張る方法でもかまいません。
教えて頂けましたら幸いです。
Intersect(Target, Range("A1:A101")) Is Nothing = False Then
If Worksheets("sheet1").Range("A" & Target.Row).Value = "1" Then
Worksheets("sheet1").Range("A" & Target.Row).Value = "合計 1部"
With Worksheets("sheet1").Range("A" & Target.Row)
宜しくお願いいたします。
No.3
- 回答日時:
こんにちは
マクロとのご質問ですが、マクロで行うような処理とも思えません。
>設定したいシートは複数枚あり、それぞれ100回書くのは大変なので、
>省略できればと思っています。
というのが問題点なら、以下ではいかがでしょうか?
(シートを指定して、一度実行しておくだけです)
Sub Sample()
' 以下に、対象のシートを列挙しておく。
Const sheetNames = "Sheet1,Sheet3"
For Each s In Worksheets(Split(sheetNames, ","))
s.Range("A1:A101").NumberFormatLocal = """合計 ""0""部"""
Next s
End Sub
No.2
- 回答日時:
おはようございます。
ThisWorkbookに、下記を書けば全てのシートが対象になるかと。
Sh:シートオブジェクトですので、処理が不要なシートがあれば、ここで
判別して処理を抜ければ、やりたい事ができるかと思います。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
No.1
- 回答日時:
マクロを使うほどのものではありません。
書式設定でできます。
(数字を全角文字にするバージョン)
[DBNum3]"合計 "[$-ja-JP]#,##0"枚";;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) サブフォルダ含むすべてのフォルダの Excel 検索 4 2021/12/13 09:33
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- Visual Basic(VBA) Excelでセル内の一部のみ同じセルを検索し、そのセルと同じ行で任意の列のセルを選択する方法 2 2021/12/17 11:01
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelにて、ユーザーフォームで...
-
【再質問】【マクロ】複数シー...
-
エクセル 不特定数シートのく...
-
9枚のシート上の同形式の表を...
-
エクセルで条件に一致した別の...
-
vba SUMIF関数で合計を出す
-
エクセルで各シートの該当項目...
-
エクセルの主軸と第2軸の0を合...
-
Excelで、空白を表示したい
-
エクセルで円グラフに引き出し...
-
ユーザーフォームに入力したデ...
-
エクセルで長い行を5行ごとに1...
-
DATEDIFでマイナス表示をさせたい
-
同一セルに日時があるものを日...
-
【ExcelVBA】全シートのセルの...
-
エクセルで文字が白くなる
-
【エクセル】オートフィルタで...
-
エクセルで文字を含む式に、カ...
-
ブック名、シート名を他のモジ...
-
エクセル(2003) 「1900/1/0...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelにて、ユーザーフォームで...
-
indirect 関数を使った複数シー...
-
【再質問】【マクロ】複数シー...
-
Excel、複数シート同セルを別シ...
-
vba SUMIF関数で合計を出す
-
別シートに毎回異なるデータを...
-
Openoffice calc で複雑な入力...
-
エクセルの関数について : CHOO...
-
エクセル VBA ユーザフォーム ...
-
エクセルで三つの条件での参照...
-
エクセル 不特定数シートのく...
-
エクセルで条件に一致した別の...
-
Excelで複数シートの特定カラム...
-
VBA データ抽出 出力 検索模索!
-
エクセルで各シートの該当項目...
-
excel マクロで数字を入れると...
-
エクセルの主軸と第2軸の0を合...
-
エクセルで円グラフに引き出し...
-
エクセルで文字が白くなる
-
エクセルで長い行を5行ごとに1...
おすすめ情報
指定した列(A1~A101)には、リストの設定もしており、文字列を入力する場合もある為、
マクロで1~100の数字のみを入力した時の動作を設定したいと考えております。