- ベストアンサー
excel プログラミング
freetakaの回答
とりあえず画像をもとに簡単に作ってみましたが セル内の表示形式とか 文字列で入力された時のエラー処理はしてません 内容は自分で理解してください Private Sub CommandButton1_Click() Dim Jinkou As Double Dim Zouka_ritsu As Double Dim Zouka_nen As Integer Jinkou = TextBox1.Text Zouka_ritsu = 1 + (TextBox2.Text / 100) Zouka_nen = TextBox3.Text Kekka = 0 Dim i As Integer For i = 1 To Zouka_nen Jinkou = Jinkou * Zouka_ritsu Sheets("sheet1").Cells(i, 1).Value = i & "年目" Cells(i, 2) = Jinkou Next 'とりあえず小数点以下を１０桁まで TextBox4.Text = Round(Jinkou, 10) End Sub
関連するQ&A
- Excel ユーザーフォームをモードレスで表示後
Excel 2000を使用しています。 ユーザーフォームをモードレスで表示後すぐ、ワークシートの操作が可能なように ワークシートをクリックしたのと同じような効果を与える、やり方ってありますか？ ユーザーフォームは、アクティブセルとその周辺のセルの値を使った計算の結果 を表示するのがメインで、できればマウスでクリックしない限り前面に出てきてほしくない のです。 ユーザーフォームのActivateイベントルーチンに、アクティブでないセルをActivateしたり、 Selectしたりするコードを挿入してみましたが、効果ありませんでした。
- ベストアンサー
- Visual Basic
- エクセルのユーザーフォームについて
現在、ワークシートの内容を見やすくするためにユーザーフォームを使用し表示させています。印刷は、ユーザーフォームにコマンドボタンを配置し、ワークシートを印刷しています。 せっかくユーザーフォームで見やすいレイアウトにしているので、表示させた内容をユーザーフォームごと印刷できればと考えています。 画面のハードコピーとかではなくて、コマンドボタンをクリックすることで印刷したいのですが、どなたか教えてください。
- ベストアンサー
- オフィス系ソフト
- EXCELのVBAで、あるワークシートでのみ使うユーザーフォームを作り
EXCELのVBAで、あるワークシートでのみ使うユーザーフォームを作りました。そのワークシート上での定数や、プロシージャや関数をワークシートのモジュールに置いています。そして、その定数や関数などをユーザーフォームのイニシャライズなどで使いたいと思いますが、ユーザーフォームのモジュールはワークシートのモジュールとは別なので、使えません。他への影響を考えると、標準モジュールには、置くのは不適切だと思います。 特定のワークシート上でのみ使うユーザーフォームと、そのワークシートとで、共通の定数や関数などを使う方法は、あるのでしょうか。どのようにすればよいのでしょうか。
- ベストアンサー
- その他MS Office製品
- エクセルVBA ユーザーフォームのボタン
ユーザーフォームにCommandButton1があります ワークシートにもCommandButton2があります ユーザーフォーム上のCommandButton1をクリックすることで、ワークシート上のCommandButton2をクリックするという命令は作れるのでしょうか？ ワークシート上のCommandButton2をクリックした後の命令は出来ているのですが、そのコードをコピーしてユーザーフォーム上のCommandButton1のコードにコピーするしかないのでしょうか？ 実行ボタン（CommandButton2）をワークシートに作成したので、 ユーザーフォームで入力→ ユーザーフォーム上のボタン（CommandButton1）をクリック→ ユーザーフォームは終了→ ワークシート上の実行ボタン（CommandButton2）をクリック してくれると良いかと思いました よろしくお願いします
- 締切済み
- Excel（エクセル）
- エクセルVBAユーザーフォーム
ユーザーフォームに入力後ワークシートへ転記されるのですが、そのカーソルがワークシート側に行ってしまいます。連続して入力したいのですが、ユーザーフォームにもどるようにするにはどうしたらよいのでしょうか？ 教えて下さい。よろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡマクロで、一度テキストポックスに入力した値がコピーされて
エクセルＶＢＡマクロで、一度テキストポックスに入力した値がコピーされてしまう ＶＢＡマクロ初心者です。 エクセルＶＢＡマクロで、以下の様なプログラムを作成し計算させていますが、 一度入力した値がテキストポックスに残ってしまい、なんとかならないかなと 思っています。 (1)複数シートにそれぞれコマンドボタンを配置し、クリックすると同じユーザー フォームが立ち上がるようになっています。 (2)そのユーザーフォーム内に、テキストボックスが複数あり、それぞれ値を入力 して計算スタートさせると、ワークシートの１行目から数千行目まで計算して 各行に計算結果を表示します。 （計算は、既に各行に入力済みのデータとこのテキストボックスの値を元に算出されます） (3)次に、別のシートでコマンドボタンをクリックし、ユーザーフォームを立ち上げると、 前のシートで入力した値がそのまま各テキストボックスに入ってしまいます。 （これは、必ず起こる訳ではなく、時々起こるのですが、起こる場合は、コマンドボタン をクリックしてからユーザーフォームが立ち上がるまでの時間が若干短い感じがします） ※一度、上記の計算をさせるとテキストボックスの値がそのシートの特定のセルに入り、 次回ユーザーフォームを立ち上げた際に、テキストボックスに入るようになっています。 （Private Sub UserForm Initialize を使っています） パソコンの構造を、私はよく知らないのですが、おそらく、一度テキストボックスに値 を入力して計算させると、どこかのメモリにそれが残っていて、次にユーザーフォーム を立ち上げた際にそれが入ってしまうのかな、と思っています。 （ただし、もし前の値が入ってしまったとしても、一度そのユーザーフォームを消して から、再度立ち上げると、正常な値（そのシートの特定のセルを参照）が必ず入ります） 何か、プログラムにより、このメモリ？を消す？、あるいはうまく解決する方法など 考えられませんでしょうか？ もし、詳しい方がおられましたら、御教示いただけませんでしょうか。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- ACCESSからエクセルへのエクスポートについて
はじめまして。 VB2000、Office2000の環境です。 (1)複数のクエリの内容を、フォームにあるボタンを押下すると、テンプレートのエクセルを 別名保存してそのエクセルに出力する (2)同一エクセル内に用意してある計算式(出力したデータを計算)が設定されているシートに 結果を表示 ※クエリ結果は日々変わります。 ※計算式の設定してあるシートはテンプレートに用意したいと思っています。 上記をボタンを押下すると自動的に(1)、(2)が実行され、デスクトップにエクセルが出力される といった機能を作っています。今現在はクエリの内容をエクセルに手動で貼り付けています。 出力は問題なくできたのですが、その後の計算処理の実装方法が分かりません。 出力は DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "クエリ(1)", DeskTopPath() & Format(Date, "yyyymmdd") & "_シート.xls", True で行っています。 クエリは(1)～(14)あり、別シートにそれぞれ出力しています。(計14シート) 該当するシートがないと、計算式のあるシートでエラーが出てしまいますし、 頭が痛いです。 このような要件を解決する手段は何かありますでしょうか? 当方勉強を始めたばかりで行き詰っております。 どうぞよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- Excel VBAなんですけど…
ワークシートにコマンドボタンを配置して、ユーザーフォームを呼ぶという、簡単なことを忘れてしまいました。どなたか教えてください。お願いします。
- ベストアンサー
- Visual Basic
お礼
おー！！ これで分かりました！！ ありがとうございました<m(__)m> 感謝感謝です。