ベストアンサー

マクロで

2005/04/08 15:25

ユーザーフォームのラベルにセルの数値をリンクさせて表示させていますが、ラベルの表示フォーマットを変えることはできますか？例えば%表示にしたいのですが・・・

tsurushin
お礼率64% (20/31)

Visual Basic
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

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

ベストアンサー

papayuka
ベストアンサー率45% (1388/3066)

2005/04/08 22:32 回答No.2

Formatを使います。例えば Label1.Caption = Format(Range("A1").Value, "0.00%")

質問者

お礼 2005/04/11 13:05

有難うございました。参考にします

その他の回答 (1)

big_fool
ベストアンサー率22% (43/193)

2005/04/08 15:40 回答No.1

単純にラベル名 = セル番地.Value & "%"　などではいかがでしょう

質問者

お礼 2005/04/11 13:04

有難うございました。参考にします

関連するQ&A

マクロの有効と無効

こんばんは、VBA初心者です。教えてください。ユーザーフォームを使ってセルに数値を入力する、という物を作っているのですが、ファイルを開くときにマクロを有効にするか、無効にするか選択をしたいです。有効にした場合はユーザーフォームを表示し、無効にした場合は普通にエクセルのファイルを開く…という風にしたいのですが良い方法があれば教えてください。超初心者なので、この説明で伝わるか不安ですがよろしくお願いします。
ユーザーフォームから可視セルを隣のセルに移動したい

ExcelのVBAを走らせて状態(1)まで来たところでユーザーフォームをモードレスで表示する。ユーザーフォームのラベルには、"選択しない県はオートフィルターのチェックを外して下さい。"と表示して、選択をしてもらう。状態(2)になったら、要素１の可視セルの数値を隣の要素２乗せるに移動する。→状態(3) オートフィルターを解除する。→状態(4) 以上のようにしたいのですが、コードの書き方を教えて下さい。
マクロでセル内を非表示にしたい。

ユーザーフォームのオプションボタン1にチェックをすれば、特定のセル内にある数字を非表示、オプションボタン２にチェックをすれば、特定のセル内にある数字を表示というふうにするにはどのようにすればよいでしょうか？お願いします。
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。

エクセル2003VBAで、マクロ実行時にユーザーフォームをモードレス表示して、そのユーザーフォームにラベル「マクロ実行中です・・・」を貼り付けています。しかし、処理が追いついていないのか、そのラベルが表示されません。ユーザーフォームにはコードを記述していません。コードは以下のみです。 UserForm1.Show vbModeless テキストをTrueにしてからマクロ処理のようなコードがあるのでしょうか？お手数をおかけしますが、解決方法をご存知の方よろしくお願いいたします。
ユーザーフォームのTextに数値を入れるとセルにエ

ユーザーフォームTextboxに数値を入力して保存すると対象になるセルの左横に！がついてこのセルにある数値がテキスト形式かアポストロフィーで始まる・・・・と出ます。そのセルを書式設定で数値にすれば直るのですがユーザーフォームをたちあげてもう一度保存をすると同じようになります。セルに数値を入力しエラーにならないようにしたいのですが方法を教えて下さい。
エクセルでマクロ？

昨日もエクセルで質問しました。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=603675 引き続き表1の数値をリンクさせて表2を作っています。また分からないところが出てきたのでお願いします。表1の数値が「0.987」の時、表2で「0.98小さい下付き7」と表示させたいのですが、何か良い方法はありますでしょうか？｜0.98｜小さい下付き7｜のようにセルが分かれても構いません。マクロとか詳しくないので助けていただけると嬉しいです。よろしくお願いします。
エクセルについて質問です。

ユーザーフォームの使い方で、テキストボックスやコンボボックスのControlSourceを,フォームを開いたのとは別のシートのセルにあてたいんですけど、できますか？同様に、コンボボックスのRowSourceのリストも、別のシートの値を拾いたいんです。具体的に言えば、ユーザーフォームを開くのは、常に「Sheet1」であって、入力した内容を表示するのは「Sheet2」なのです。コンボボックスのリストは本当は、「Sheet3」の値を拾いたいのです。今はよくわからないので、全部「Sheet1」にリンク（？）させて、値を取得させるようにしてます。それと、セルの数式の中に別のセルの数値を代入できますか？例えば、あるセルの数式が「＝Ｓｈｅｅｔ２！Ａ４」だとしましょう。この場合の「Ｓｈｅｅｔ２」の「２」に、例えば、ある別のセルの値を代入して、「＝Ｓｈｅｅｔ３！Ａ４」とかにしたいのです。つまり「＝Ｓｈｅｅｔ”Ａ１”！Ａ４」みたいにして、「Ａ１」のセルの値が「２」、「３」に変われば元の数式も変わる、みたいに。同じように、セルの範囲につけた名前や、リンクするファイルの名前も数式の変数に入れられるのでしょうか？とりあえず、セルの数式の中に、別のセルの値を”文字”や”数値”として入れたいのです。ちょっと説明がわかりにくいかもしれないけど、教えて下さい。
VBA 上位３位までの値をラベルに表示するには

いつもお世話になっております。初心者ですが、宜しくお願いします。ご教授願いたいのは、上位３位までと、下記３位までの値を抽出し、それぞれをユーザーフォーム上のラベルへ表示したいのです。（例 ( sheet1 ) 　　A　　１　20　　２　15　３　40　４　25　５　30　６　60　７　55　　　　↓　↓ ユーザーフォームにはラベル１～ラベル6まであります。上記のA列の中から上位３位までを抽出し、ラベル１～ラベル３へ表示。ラベル４～ラベル６に下位３件の値を抽出、表示させたいのです。現在は手動でLARGE関数、SMALL関数で一度sheet2に書き出した後、そのセルの値を表示するようにしていますが、値も日々動的に増えていきますので、別シートを使わず直接プログラムできればと思います。素人のためうまく説明できませんが、どうぞ皆様のお知恵をお貸しください。宜しくお願いいたします。
マクロ

シート上のCommandButton1を押すと、a2:d3までのセル内に赤字があれば、ユーザーフォーム1が起動する、セル内の赤字が緑になる　上記のようなマクロは可能でしょうか？マクロ初心者ですので、サンプルコードがあれば助かります。
マクロ

マクロのユーザーフォームに関してですが，RefEditコントロールで選択したセル範囲を取得したのですが，ここで取得したセル範囲が[A1:B10]のような形になっています．そこで，知りたいことが例えば[A]が何列目になるかということです．何か関数があればご教示頂けないでしょうか？よろしくお願いいたします．
ユーザーフォームでセルを選択

エクセルのVBAでユーザーフォームに数値を入力してセルを選択することは可能でしょうか？例えば、列はAに固定していいのですが、ユーザーフォームに「123」と入力してボタンを押せば「A123」のセルがアクティブになるようなユーザーフォームを作成したいのですが方法がわかりません。よろしくお願いします。
マクロの組み方を教えてください

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

仕事の都合で早急に仕上げなければならないことがあり困っています。内容としてはエクセルのA1セルに０～無限までの数値がランダムに繰り返し表示されるとした場合で（例えばA1セルに０と表示された後、数秒たつと１００００と表示されて、また数秒たつと３０００と表示されて、また数秒たつと０になったりをA1セルは繰り返します。 A1に表示される数値も更新時間も完全にランダムです。）１以上の数値がA1セルに表示された場合のみその数値をB1セルに抜き出し、更新毎にB1セルで合計し続ける。（例えばA1に１０と表示されるとB1に１０と表示しその後A1に１００と表示されるとB1に１１０と表示その後A1に３００と表示されるとB1に４１０と表示）というマクロを作りたいのですが完全に手詰まりになってしまっています・・・どなたか詳しい方いらっしゃいましたら申し訳ございませんが知恵を貸していただけないでしょうか？よろしくお願いいたします。
エクセルVBA　escキーのマクロ

初心者に毛が生えた状態です。エクセル2000を使っています。ワークシートをWクリックするとユーザーフォームを表示するようにマクロの記述をしています。ユーザーフォームをキャンセルボタン（×）で閉じるとシートのセルの中にカーソルが入った状態になります。それをescキーを押した時のように、カーソルがセルの中に無い状態にしたいのです。マクロの記録でescキーを押しても記録されないので、コードが分かりません。ユーザーフォームの×ボタンを押したら、Wクリックする前の状態に戻すコードを教えてください。よろしくお願いします。
excel2000のvbaハイパーリンク

excel2000のvbaユーザーフォームでラベルをクリックしたら、ハイパーリンクで別のファイルを開くのですが、リンクが切れていた場合、リンクが切れているという風に警告してもらいたいです。リンクさせるアドレスを、sheet1のＡ１セルに格納していますが、下記のままだと、リンク切れしていたばあい、エラーとなってしまいます。Private Sub テストラベル_Click()ThisWorkbook.FollowHyperlink Address:=Worksheets(”Sheet1”).Range("A1").TextEnd Subどう修正すればいいでしょうか？
Excelの計算式が数値に変更される。

Excelのセルに以下のような関数を入れていたとします。 =MID($D$4,FIND("年",$D$4)-5,4) 実行結果は正常なのですが、入力後確定し、そのセルの数式バーをみると、値が表示されます。オプションの数式でラベルを…などはチェック入れていません。参照データのD4の値が変更されると値も変更されるので、計算は行われているのかと思うと、D4の値が空欄になった後も、値が表示されます。ひとつのセルではなく、複数のセルがそうなってしまいました。全部がそうというわけではないんですが。【状態】 D4　：　データが入っている。 BG2　：　=MID($D$4,FIND("年",$D$4)-5,4)　が入っている。ボタンを押すとユーザーフォームが表示され、セルに入力をするためにデータを入力できる。すでに入力されたものもあるので、ユーザーフォームには、すでにセルに入っている値が反映されるようになっている。ユーザーフォーム以外では入力ができないように、シートに保護がかかっており、ユーザーフォームが表示された時だけ保護が解除されるようになっている。
ExcelVBAでセルをクリックしてユーザーフォームを表示するには

OfficeExcel2003を使用しています。ユーザーフォームのテキストボックスやコンボボックスに文字や数値を入力し、OKボタンを押せばエクセルのセルに記入できるようにしようと思ってます。フォームはなんとか(形だけですが..)作成できたのですが、そのフォームを呼び出す方法として、入力したい行のA列のセルをクリックすればユーザーフォームが表示されるようにしたいのです。ネット上でいろいろ検索してみましたがなかなか見つけることができませんでした。初歩的な質問かもわかりませんが、教えて頂けないでしょうか。宜しくお願い致します。
Excelマクロ：ユーザフォーム上のテキストボックスにセルの選択範囲を転記

ユーザフォーム上のテキストボックスにセルの選択範囲（例えば "A5:M31"）を転記する方法についてお知恵を拝借願えればと思います。【前提条件】１．ユーザフォーム（UserForm1）がモーダルで表示されています。２．ユーザフォームが表示されている時点では、望むべきセルは選択されていません。３．テキストボックスが２つあります（TextBox1, TextBox2）。【やりたいこと】１．上記の２つのテキストボックスには、それぞれ違ったセルの選択範囲を表示したい。２．上記の前提条件において、なんらかのトリガー（例えばコマンドボタン押下）によって、マウスドラッグによりセルを選択し、その範囲をテキストボックスに記入したい。【補足】１．【やりたいこと】の２で記しましたトリガー（例えばコマンドボタン押下）のタイミングでユーザフォーム（UserForm1）を非表示にするのは問題ありません。２．できれば、セル選択時の MouseUpイベントでユーザフォームに転記させたいのですが、スクロールバー等の操作によるMouseUpイベントも入ってくる可能性が大です。以上、必要な情報に不足がございましたら補足要求で指摘して頂ければ幸いです。どうぞ、よろしくお願いいたします。
ユーザーフォームのコピー？

エクセルのＶＢでユーザーフォームをコピーしたいのですが。例えば、「ユーザーフォーム１」と「ユーザーフォーム２」を同じ形式で作成し、リンクするセルのみを変えたいのです。今は、それぞれのコントロールをコピーしてます。いい方法ありますか？というか可能ですか？
エクセルのユーザーフォームについて

エクセルマクロのユーザーフォームのテキストボックスにセルの値を表示する方法で質問です。ユーザーフォームを表示するとその時点でのセルの値はテキストボックスに表示されているのですがユーザーフォームを表示したまま別のブックのセルを選んだ際にそのセルの内容がテキストボックスに表示されるようにしたいです。ボタンや、なにかをするわけではなく自分で任意のセルを選択したら、という事です。ユーザーフォームには selectionchange　などがないのでどうすれば良いかわかりません。宜しくお願いします。

マクロで