- ベストアンサー
エクセルVBAのマクロに関して
タテAに6桁で並んでいる数字の下2桁だけ削除したいのですが、 VBA初心者なのでうまくマクロが組めませんorz わかる方いらっしゃいましたら教えて下さい。 よろしくお願いします。
- satoshi556
- お礼率33% (3/9)
- オフィス系ソフト
- 回答数3
- ありがとう数4
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
6桁を4桁にするってことかな? Sub test() For Each lp In Range("A1:A10") lp.Value = Left(lp, 4) Next End Sub こんな感じ?
その他の回答 (2)
- hige_082
- ベストアンサー率50% (379/747)
数字6桁→4桁 dim nmb as integer nmb=123456/100 msgbox nmb msgbox 123456\100 msgbox int(123456/100) msgbox left(123456,4) 今、思いつくのはこれぐらいかな タテA??A列のこと? 繰り返し処理が分からんのかな?
お礼
万が一小数点が変に作用して。。とか考えるとなるべく計算は使いたくなかったので今回は自分の希望に近い回答をしていただいたNo2の方にポイントをつけさせていただきました。 ループは最近やっと使い方わかってきたところです^^ 回答ありがとうございました。
- marbin
- ベストアンサー率27% (636/2290)
100で割った商を100倍するというのでいかがでしょう? MsgBox (12345 \ 100) * 100 複数のセルならループで。
お礼
計算入ってるとちょっと不安ですね^^; 今回は自分の希望により近かったNo2の方にポイントつけさせていただきました。 ありがとうございました。
関連するQ&A
- VBAマクロで検索をしたい
VBAマクロで検索をしたい 1つの列に8~11桁の数字がならんでいます。 別シートに検索シートを作り、下4桁(右から4桁)で抽出したすべての数字を出すにはどうしたらいいでしょうか?><; 例) シート1 A列 1 0001234555 2 12345678 3 3211234555 4 987654321 5 3211234555 6 1111114555 7 12344555 8 あ123い4555 シート2 A列検索 4555 ← 入力 ↓以下が検索される 0001234555 3211234555 3211234555 1111114555 12344555 あ123い4555 ※同じ数字が並ぶ場合もあり、その場合は複数あることを示すため、その個数分出して欲しい。 ※右4桁は数字のみだがそれ以外はひらがな、カタカナが入る場合がある どなたか教えてください><;
- ベストアンサー
- その他(プログラミング・開発)
- エクセルVBA初心者です。マクロを組んでください。
エクセルVBA初心者です。組んで欲しいマクロがあります。 Sheet 1に13桁を入力するセル sheet 2に検索したいデータ 手順としては、 Sheet 1のセルにデータを入力 →13桁以上でマクロが開始(されるように設定します) →Sheet 1のセルと同じ数列をSheet 2の列Aから検索 →該当のセルを含む行をSheet 3にコピー →Sheet 1の入力セルの少し下にもコピー (確認用) というのを一回一回ずつやりたいです。 できれば作業中マウスやキーボードを触りたくないので、そのために、マクロの終わわりには入力セル内の消去、マクロの始まりには確認用でコピーした行の削除もつけて下さい。 検索するSheet 2には同じデータが含まれているので、出来ればひとつずつSheet 3にコピーしたいので組み込んで頂けると幸いです。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- エクセル マクロで数値が変った時行挿入できますか
最近VBAを勉強しはじめた初心者です。 簡単なマクロを使ってエクセルシートを作成中しているのですが、以下の部分がどうしても分りません。 (1)ある列(例えばA列)に数字が入っています。 (2)その数字は、セル1個つき1桁から3桁(1から100の場合)です。 (3)「1」「1」「1」と3セル並んでいたり、「2」「2」が2セルだったりと色々です。 (4)この数字が変化したとき、例えば「1」と「2」の間、「2」と「3」の間などに、 自動的に行挿入して、空白行を作りたいと思っています。 マクロでこのような事が可能でしょうか? もし、お分かりになる方がおられましたら、ご教示の程お願いいたします。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ
エクセルを使って12桁の数字をsheet A と sheetBとの違いを調べる、表?をつくりたいのですが、マクロを使えば簡単と聞きました、マクロは全くわからないので、マクロを使わなくてもいいのですが、良い方法はありますか? 例えば エクセルの sheet A に 12桁の数字を50, sheet Bに12桁の数字を50, その中からsheetAにはあってsheetBには無いもの、sheetAには無くてsheetBには有るもの を色をつけてわかるようにしたいと思っています。 みなさんよろしくお願いいたします。
- 締切済み
- その他(ビジネス・キャリア)
- エクセルのマクロについて教えてください
作業が面倒だし、間違いもよく発生するので、 下の条件のマクロをどなたか教えて頂けませんか? 宜しくお願い致します。 社内のサーバーにエクセルファイル名、AからZまであるとします。 各AからZにそれぞれ同じシート名「集計」があるとします。 そのシート内にデータが色々あるとします。 ある決まったセルだけを削除するのではなく、セルの色だけで判断してデータを削除したいのです。 例えば、赤色のセルになっている部分だけを対象に 入力されている数字を消したいのです(行削除ではなく、単純にデリートです)。 上記をマクロで実行する方法はないでしょうか。 マクロ初心者なので、プログラム言語の下に簡単な説明を頂けると助かります。 どなたか詳しい方がいらっしゃいましたら、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- エクセル【マクロ】について
初心者です。 エクセルでシート1のA1からA10まで決めた文字(abc)という文字を検索して、検索文字があるセルの1行をコピーしてシート2のA1から下へ貼り付けるというマクロ(VBA)を作成したいと考えています。 詳しい方、よろしくお願いします。
- 締切済み
- その他([技術者向] コンピューター)
- エクセル マクロ
セルのB4~B300には5桁以上の数字が入っています。 そのB4~B300の下4桁のみをみて昇順で並び替えをしたいと思っています。 このような事をマクロで組みたいので、ご教授よろしくお願いします。 ※空欄の場合は全部下に。
- 締切済み
- Excel(エクセル)
- Excel 2003のVBAマクロデータをExcel 2007で見たい
Excel 2003のVBAマクロデータをExcel 2007で見たい。 Excel 2003でVBAマクロを登録したExcelファイルがありますが、今回、Excel 2007をインストールして、該当ファイルを開いたところ、「マクロデータを削除しました。」とメッセージが出て、VBEを起動してもマクロが見えなくなりました。OSはWindowsXP SP3です。Excel 2003で登録したVBAマクロをExcel 2007で削除されないで、次の2点について、可能にするにはどうすればよいか、ご教示願います。 (1)マクロデータを残す方法。 (2)マクロ起動する方法。
- ベストアンサー
- その他MS Office製品
- エクセルマクロ(VBA)の立て方について
お世話になっております。 エクセルのVBAマクロについて教えてください。 以下のように2種類A,Bの縦に並んだ時系列データがあった場合、 A No1 2012/6/1 1 A No2 2012/7/1 3 A No3 2012/8/1 4 B No1 2012/6/15 2 B No2 2012/7/15 6 B No3 2012/8/15 7 B No4 2012/9/15 9 上記のデータを別のシートに以下のように表示させたいのです。 (上記1列目は以下1列目に対応、上記4列目の数字をA、B単位で累計和を以下2列目に表示) A 1 A 4 A 8 B 2 B 8 B 15 B 24 以上のVBAマクロの数式の立て方を教えていただけますでしょうか。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- excel vba 17桁の数字が表示できません。
毎度お世話になります。 EXCEL VBA で、CSVファイルを読み込み マクロで17桁数字を表示したいのですが、どうしても出来ません。 Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "00000000000000000" 上記ですと15桁制限のため下2桁がゼロになってしまい Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "@" ですと1.2345E+16となってしまい Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "'00000000000000000" ですと'12345678901234500 となってしまいます。 セルの書式設定はあらかじめ文字列にしてありますが、これも vbaで何らかの指定が必要なのでしょうか? 初心者でわからないことだらけですが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
試してみたら希望通りのものが出来ました^^ ありがとうございましたm(_ _)m