• ベストアンサー

「×1000」と「÷1000」のマクロを作りたい

書式・見た目の表示でなく、 Excelで実際の数値データを1000分の1にしたり、 1000倍にするマクロを作りたいのですが、 うまくいきません。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • onegstar
  • ベストアンサー率36% (7/19)
回答No.2

すみません、↑のに記載ミスがありました(^^; >また、 >「A1」の部分の数値を1000倍にしたいばあい。 >その数値を記したい部分に「=A1/1000」といれてあげ>てください >/が÷の代わりの記号になります。 ですが、1000倍->1000分の1の間違いです。失礼しました。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • A98JED
  • ベストアンサー率28% (221/778)
回答No.3

Macro1は千倍、Macro2は千分の一にします。 Sub Macro1() ' Macro1 Macro ' マクロ記録日 : 2005/11/11 ユーザー名 : editor Number = ActiveCell.Value Number = Number * 1000 ActiveCell.Value = Number End Sub Sub Macro2() ' ' Macro2 Macro ' マクロ記録日 : 2005/11/11 ユーザー名 : editor ' Number = ActiveCell.Value Number = Number / 1000 ActiveCell.Value = Number End Sub

全文を見る
すると、全ての回答が全文表示されます。
  • onegstar
  • ベストアンサー率36% (7/19)
回答No.1

1000倍、もしくは1000分の1にしたい所のカーソルを右クリック →セルの書式設定  →表示形式    →数値 にしてOKをクリックします。 ここまでが下準備となります。 あとはマクロになりますが 「A1」の部分の数値を1000倍にしたいばあい。 その数値を記したい部分に「=A1*1000」といれてあげてください *が×の代わりの記号になります。 また、 「A1」の部分の数値を1000倍にしたいばあい。 その数値を記したい部分に「=A1/1000」といれてあげてください /が÷の代わりの記号になります。 いかがでしょうか??

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 「×1000」と「÷1000」のマクロを作りたい

    書式・見た目の表示でなく、 Excelで実際の数値データを1000分の1にしたり、 1000倍にするマクロを作りたいのですが、 どうもうまくいきません。 よろしくお願いします。

  • ごく簡単なマクロなのですが。

    エクセルで、セルの書式を「通貨」、通貨記号を「ユーロ記号」にするために、 Sub 通貨変更_EUR ActiveCell.Select Selection.NumberFormatLocal = "?#,##0.00;-?#,##0.00" End Sub このようなマクロを作ってみました。 実際は「?」の部分を「ユーロ記号」にしたいのですが、 マクロではユーロ記号を表示させることはできないのでしょうか? もともとエクセルに設定してある「ユーロ通貨設定」のボタンでは書式が「会計」になってしまうので、 「通貨」にしたいのですが・・・。

  • マクロについて

    マクロであるプログラムを組んでいますが、うまくいきません。 かなり簡素化していいますと、次のような状況です。 エクセルのcells(1,1)に「9:30」という文字が入っています。 この"9:30"という文字列を読み出そうとするのですが読み出した値は0.39583…という数値になってしまっています。 具体的に言うと、 sub macro1() 開始時刻="9:30" 時刻=cells(1,1) if 開始時刻=時刻 then a=1 endif end というようなプログラム(実際はもう少し複雑ですが)を組んだのですが、どうしても「a=1」にならないので、デバッグ式で見てみると「時刻」の中味は"9:30"ではなく0.39583という数値だったということです。 ちなみにエクセルのそのセルの書式は、「表示形式:時刻、種類13:30」となっています。 どうすれば"9:30"という時刻(文字列)を読み出せるのでしょうか。教えてください。よろしくお願いいたします。

  • データの置換 エクセルの操作とVBAマクロ…???

    A列に 17:00 と表示されているセルを 16:45 に 置換したいです。 普通にエクセルの操作(編集からダイアログボックスを表示して)行うと普通に実行されるのですが、その操作を記録したマクロを実行しても何も起こらないのです。(エラーも出ません) VBAには↓のとおり記録されました。 Columns("A:A").Select Selection.Replace What:="17:00", Replacement:="16:45", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 実は、17:00 と表示されているセルに入力されているデータは、17:00:00 であり、ユーザー定義の書式設定で h:mm の形式で表示されています。 元データの書式設定を 17:00:00 (時刻)に変えてもやはり同様で、エクセル操作ではうまくいきますがマクロだと何も起こりません。 試しに元データの書式設定を標準(シリアル値)に変えてやってみるとマクロでも置換されましたが、実際の業務では大変不便そうです。 マクロを実行する時にはユーザー定義や時刻の書式は認識されないのでしょうか? それとも書式に原因を求めるのが間違ってるのでしょうか?

  • マクロ

    エクセルマクロの件で グラフの系列の色を決める時に,「データ系列の書式設定→塗りつぶし」のウィンドウに「自動」という選択欄があるのですが,この自動をマクロで選択させるにはどのように組めば良いのでしょうか? どなたかご教授お願いたします.

  • Excelのマクロについて質問です。

    Excelのマクロについて質問です。                 温度 1  2010/9/21  16:37  24.9 2  2010/9/21  16:37  24.9 3  2010/9/21  16:38  24.8 4  2010/9/21  16:38  24.8 5  2010/9/21  16:39  24.9 6  2010/9/21  16:39  24.9 計測機器を用いて上のようにExcelのシート上にどんどん更新されていく数値の一番新しい温度の数値のみを別のシートに表示させるには、どのようなマクロを使えばいいか教えてください。

  • Excel 入力して置換するマクロ

    Excel 入力して置換するマクロ 同一書式で作成された表がある複数の書式シートのデータを、同一ブック内にあるデータ集約するための集約シートが「表 あ」にあります。 都合上、集約シートには表は、「表 あ」しかなく、1つの書式シートのデータのみしか表示していません。 書式シートのデータを参照する計算式内のシート名にあたる『Sheet1!』の部分を置換で他の書式シートに変えたいのですが、対象シートが複数あり上、誰でも置換をスムーズに行いたいので、インプットボックスにシート名を記載すれば置換できるマクロが作れないのか試行錯誤しております。 良い方法があればお教え下さい。

  • マクロを教えてください

    次のようなマクロを組みたいのですが...。 全くの素人なのでわかりません。 詳しい方、ご回答頂けたらと思います。 エクセルでシート1のA-1~A-5に入力した数値がシート2のA-1~A-5に入力されている基本数値とそれぞれ比較して、「多い」「同じ」「少ない」をシート1のB-1~B-5にそれぞれ表示するマクロ A-1に1月、B-1に2月、C-1に3月...というように毎月数値を入力していき、12ヶ月分の数値が埋まった時点でボタンを押すと入力されていた数値がクリアされるマクロ

  • Accessデータをテキスト変換する時、小数点以下の桁数が切れてしまう

    Accessデータをマクロを利用して、csv出力(テキスト変換)する際、 2.564580→2.56 2.125400→2.13 というように、小数第3位で切れた状態でエクスポートされてしまいます。データ自体が切り捨てられているようで、3位以下は「0」です。 データ型は、数値型-倍精度ですし、表示書式等の設定は行っていません。(また、書式設定等で小数点以下を7桁に固定してもダメです) どうすれば、もとの数値のままエクスポートできるでしょうか? よろしくお願い致します。

  • マクロの組み方を教えてください

    セルAに1000から8999までの数値があります。 セルAの配下のセルBに1から9までの数値があります。 セルBの配下のセルCに1から31の数値が入れられます。 セルCは最大数31で、現在入っているデータの個数は欠番もあるため データの個数が10個であっても最大の値が10というわけではありません。 欠番のないものには最大数プラス1の値を 欠番のあるものは、その最小の欠番をセルCを参照してセルDに出したいのですが ExcelまたはAccess(2007)でどのようなマクロを組めばいいでしょうか。 現在手動確認でやっているため、時間がかかりかつ、見落としのミスも多いです。 1000-1-1        2        3    →4 を表示させたい。 1000ー2-1        3        5        6    →2を表示させたい。 ご指導いただけないでしょうか。

用紙が送れない
このQ&Aのポイント
  • MFC-J6999CDWで自動給紙設定でも必ず多目的トレイを選択して印刷不可となるトレイを選択すると印刷できる自動設定ができるようにしたい
  • お使いの環境はWindows10で無線LAN接続です
  • ブラザー製品に関する質問です
回答を見る

専門家に質問してみよう