masa_019のプロフィール

@masa_019 masa_019
ありがとう数186
質問数0
回答数253
ベストアンサー数
121
ベストアンサー率
61%
お礼率
0%

  • 登録日2005/08/11
  • UserFormとModule1のコピー

    ●質問の主旨 Excel2007VBAを使用しています。 最初のブックからAddメソッドを使って新規ブックを 立ち上げたときに、最初のブックのUserFormやModule1を コピーすることは可能でしょうか？ また可能であればプロパティ、メソッド、関数などを どのような方法を使用するのでしょうか？ ご存知の方ご教示とよろしくお願い申し上げます。 ●質問の補足 「タイムカード」の雛形から年月名と個人名が記載された タイムカードをワークシート上に作成しようと考えています。 まず添付の画像のように最初の雛形から1ヶ月目の 「タイムカード」を新規ブックとして立ち上げます。 次に1ヶ月目の「タイムカード」から2ヶ月目の 「タイムカード」をまた新規ブックとして立ち上げます。 以降の月はその繰り返しです。 質問のポイントは1月ごとに新規ブックを立ち上げる際に UserFormやModule1のコードをコピーすることが可能であるかどうか ということです。 ※新規ブックやワークシートには予め年月名や個人名が 入力されるように最初のブックにプログラミングしている こととします。

  • コンボボックスの値を参照する

    こちらVBA初心者です。宜しくお願い致します。 A:Aを"出身地"、 B:Bを"データ"という名前で定義しており、 D1～D3を"選択"という名前で定義しています。 入力内容はこうです。 D1・・・空白 D2・・・出身地 D3・・・データ そしてA列とB列の最初にある空白セルを見つける為に、 Range("出身地").Select Selection.End(xlDown).Offset(1, 0).Select もしくは、 Range("データ").Select Selection.End(xlDown).Offset(1, 0).Select で可能だと言う事がわかりました。 そして、それをユーザーフォームでコンボボックス内のRowSouceに選択と入力して、 コンボボックスでどちらかを選び、ボタンを押して実行。と、したいのですがここから先がうまくいきません。 VBAに関するサイトは多く、様々な場所で勉強させていただきましたがどうにも理解出来ませんでした。 どうか、お助け下さい。

    • go-to
    • 回答数2
  • コンボボックスの値を参照する

    こちらVBA初心者です。宜しくお願い致します。 A:Aを"出身地"、 B:Bを"データ"という名前で定義しており、 D1～D3を"選択"という名前で定義しています。 入力内容はこうです。 D1・・・空白 D2・・・出身地 D3・・・データ そしてA列とB列の最初にある空白セルを見つける為に、 Range("出身地").Select Selection.End(xlDown).Offset(1, 0).Select もしくは、 Range("データ").Select Selection.End(xlDown).Offset(1, 0).Select で可能だと言う事がわかりました。 そして、それをユーザーフォームでコンボボックス内のRowSouceに選択と入力して、 コンボボックスでどちらかを選び、ボタンを押して実行。と、したいのですがここから先がうまくいきません。 VBAに関するサイトは多く、様々な場所で勉強させていただきましたがどうにも理解出来ませんでした。 どうか、お助け下さい。

    • go-to
    • 回答数2
  • エクセルの数式で=TRUEを省略すると

    エクセル2003です。 初歩的な数式について疑問がでました。 たとえば、セルA1の値がTRUEなら「はい」、そうでなければ「いいえ」を返したい場合、 =IF(A1=TRUE,"はい","いいえ") と書くのが正しいのでしょうが、経験的に =IF(A1,"はい","いいえ") と=TRUEを省略しても同じ答えを返すので、ついついこのような楽な書き方をしてしまいます。 厳密には、A1がTRURでなくとも 0以外の数値ならば「はい」が返るのは存じております。 ところが、上記の条件に、「セルA2の値が0より大きい」という条件を加えると、追加条件の「A2が0より大きい」を満たす場合、答えが変わってしまいました！ =IF(AND(A1,A2>0),"はい","いいえ") と=TRUEを省略すると A1が空白であっても「はい」が返ります。 もちろん、 =IF(AND(A1=TRUE,A2>0),"はい","いいえ") と省略せずに書くと正しく「いいえ」が返ります。 A2>0という新条件を加えても、A1の条件については何もかわらないのに答えがかわるのはどうしてでしょうか？

  • 現在アクティブなタブのページ名を取得したい

    アクセス２００７のＶＢＡについて質問します。 図のようにフォームにタブとコマンドボタンを設置しました。 コマンドボタンを押すと、現在アクティブなページ番号を表示させたいです。 今は Private Sub コマンド5_Click() Dim i As Long MsgBox "現在アクティブなタブはページ" & i & "です。" End Sub としていますが どういうＶＢＡコードを書けば 現在アクティブなタブのページ名を取得できるのでしょうか？ アドバイスよろしくお願いします。

    • dfghhj
    • 回答数2
もっと見る