エクセルで自動入力のためのマクロを作っています。
その中で、日付をスピンボタンで動かしたいのですが、どうしても「1904.1.1」になってしまいます。
OSはmacでエクセルは98か2001です。
winでの方法でもかまいません。教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

状況がわかりにくいので、もっと詳しく説明してください。

この回答への補足

すいません。
エクセルで日付を毎回入力しないですむように、入力用のセルに「フォーム」のなかの「スピンボタン」をリンクさせることで、ボタンを押すことで日付が上下するように作りたいのです。
日付を上下させるべくセルは、書式で「日付」を選択し、ボタンのプロパディーで、リンクし、設定しようとするのですが、出だしの日付が、勝手に「1904」年になってしまいます。そのまま2001年まで進められるのかと思ったら「ボタンによる数値の上下は0~30000まで」ということで、2001年までたどり着きません。
いま、他のボタンでも試したのですが、「スクロール」や「コンボボックス」を利用しても同じ事が起きます。
ボタンにはこだわらないのですが、入力のための日付を簡単に上下させる良い方法はありませんでしょうか。

補足日時:2001/10/26 13:09
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルの日付(改;スピンボタン)

下で、スピンボタンの質問をしたモノです。かなりわかりにくい書き方だったようなので、書き直させていただきます。すいません。

エクセルで、フォームの日付を毎回入力しないですむように、日付が上下するようなボタンを作りたいのです。
(毎回日付を入力するのが面倒なので)
日付を入れるセルは、書式で「日付」を選択し、フォームを使ってボタンを設定しようとするのですが、出だしの日付が、勝手に「1904」年になってしまいます。そのまま2001年まで進められるのかと思ったら「ボタンによる数値の上下は0~30000まで」ということで、2001年までたどり着きません。

ボタンにはこだわらないのですが、入力のための日付を簡単に入れる良い方法はありませんでしょうか。
また、入力した日付が勝手におかしくなるのはなぜなのでしょうか。
教えてください。お願いします。

Aベストアンサー

こんばんは!

>日付を入れるセルは、書式で「日付」を選択し、
>フォームを使ってボタンを設定しようとするの
>ですが、出だしの日付が、勝手に「1904」年に
>なってしまいます。
MAC版のEXCELなので、数値0が1904/1/0
だデフォルトですね!
MAC版は使ったことが無いので自信が無いのですが
2案ほど

案1
 スピンボタンのリンク先を、使っていないセル
 例えばスピンボタンを配置したセル(仮にB2)
 にして、日付を表示したいセルには
 ="2001/1/1"+B2 等のスタートの日付に加算
 させれば可能です。
(スピンボタンよりスクロールバーの方が楽かも
 しれませんが^^;)

案2
 今日の日付だけでよろしいのであれば
 適当なセル(仮にB1)に =TODAY()
 としておき、表示したいセルに
 データ 入力規則 リスト 元の値欄に =B1
 書式設定 表示形式 日付
 で、リスト選択しても可能です。
 次にリスト操作をしない限り、その日が固定されます。
----------------------------------------------
>また、入力した日付が勝手におかしくなるのはな
>ぜなのでしょうか。
どのようになるのでしょうか?

Win版EXCELで表示した時でしょうか?
Win版のシリアル値のデフォルトは
 0 = 1900/1/1 (オプションで1904/1/0に変更可能)
MAC版はたしか
 0 = 1904/1/0
と思いますが、このへんのことでしょうか?
こっちのレスは、ご質問の内容情報は少ないので
勝手な想像で不確かです(^^;スミマセン
見当違いであれば読み飛ばして下さいm(__)m

こんばんは!

>日付を入れるセルは、書式で「日付」を選択し、
>フォームを使ってボタンを設定しようとするの
>ですが、出だしの日付が、勝手に「1904」年に
>なってしまいます。
MAC版のEXCELなので、数値0が1904/1/0
だデフォルトですね!
MAC版は使ったことが無いので自信が無いのですが
2案ほど

案1
 スピンボタンのリンク先を、使っていないセル
 例えばスピンボタンを配置したセル(仮にB2)
 にして、日付を表示したいセルには
 ="2001/1/1"+B2 等のスタートの...続きを読む

Qエクセル スピンボタンで日付

スピンボタン(フォーム)で日付と時間を動かしたいのですが教えてください。

Aベストアンサー

#4補足へのレスです。

>日付や時間は現在の時刻でスタートしたいと思っています。

これが、

『そのBookを開いた時に、B1の初期値を現在日、B2の初期値を現在時刻に設定する』

という意味なら、マクロが必要です。
TODAY関数やNOW関数を使っても初期表示だけは可能ですが、
NOW関数だと、再計算の度に選択後の時刻がかわってしまいます。

以下手順。
シートのシートタブを右クリックして[コードの表示]。
VisualBasicEditor(VBE)が起動します。
[Alt]キー → [i]キー → [m]キー の順押し。
標準モジュールが挿入され、マウスカーソルがフォーカスします。
その無地シートのようなもの(コードウィンドウといいます)に以下をコピーペーストです。

Sub auto_open()
  With Sheets("Sheet1")'" "の中はスピンボタンがある、実際のシート名に変更必要
    .Range("A1").Value = 69083 - CLng(Date)
    .Range("A2").Value = 1440 - Timer \ 60
  End With
End Sub

このマクロは、Bookを開いた時にA1、A2 セルに初期値をセットします。
エクセルのメインメニューの[ツール]-[マクロ]-[マクロ]から実行する事も可能です。

※B1、B2の数式が、レス#4で書いた、▼ボタンで増加させる場合の式である事を前提にしています。

#4補足へのレスです。

>日付や時間は現在の時刻でスタートしたいと思っています。

これが、

『そのBookを開いた時に、B1の初期値を現在日、B2の初期値を現在時刻に設定する』

という意味なら、マクロが必要です。
TODAY関数やNOW関数を使っても初期表示だけは可能ですが、
NOW関数だと、再計算の度に選択後の時刻がかわってしまいます。

以下手順。
シートのシートタブを右クリックして[コードの表示]。
VisualBasicEditor(VBE)が起動します。
[Alt]キー → [i]キー → [m]キー の順押し。
...続きを読む

Qエクセル(スピンボタン設定)について

スピンボタンを利用したいと思っているのですが、リンクするセルが結合しているセルだと、数値が表示されません。

結合していないセルだと問題ないのですが、結合しているセルには設定できないのでしょうか。

どうすれば、結合したセルに設定できるのか教えて下さい。

よろしくお願いします。

Aベストアンサー

例として、A3とB3を範囲指定し、書式ーセルー配置ーセルを結合するで結合します。
表示ーツールバーーコントロールツールボックスースピンボタンでシート上の適当な場所(例えばA3の部分)に貼り付ける。
スピンボタンを編集状態にして、右クリックープロパティで
LinkedCellの行に、A3を指定。
[コントロールツールボックス]ツールバー
 -[デザインモードの終了]ボタンをクリック。
これでコントロールの編集(デザインモード)状態を脱すると、右▲をクリックするとSmallChange量だけ増えました。元のB3セル部分に数字がでて、変化します。(左▲をクリックするとSmallChange量だけ減りました。)B3部分にスピンボタンを貼り付けると、数字データが見えなくなるので注意のこと。
あとMax、Min値の指定もプロパティ画面で出来ます。
上記例でやってみて納得してください。

QエクセルVBA「スピンボタン」について

エクセルVBA「スピンボタン」について
スピンボタンとテキストボックスを組み合わせて

Private Sub SpinButton1_Change()
Me.TextBox1.Value = Me.SpinButton1.Value
End Sub

Private Sub UserForm_Initialize()
With Me.SpinButton1
.Min = 1
.Value = .Min
End With
Me.TextBox1.Value = Me.SpinButton1.Min
End Sub

というコードを書きました。
「1、2、3、・・・10、11、・・・」という数の増加を「01、02、03・・・10、11・・・」という風にしたいのですがどのようにコーディングすればよいのでしょうか?お願いします。.

Aベストアンサー

ものすごく無理やりだけど。。

Private Sub SpinButton1_Change()
Me.TextBox1.Value = Me.SpinButton1.Value
If Me.TextBox1.Value < 10 Then
Me.TextBox1.Value = "0" & Me.TextBox1.Value
End If
End Sub

Qエクセル・スピンボタンを使った時にイベントマクロを発生させたい

エクセルでスピンボタンを使って数値を上下させたときに
イベントマクロを発生させたいです

セルC1の入力規則のリストから氏名を選択するとグラフが表示されるのですが
いちいちリストから選択するのが面倒なので
スピンボタンでリストの上から順番に見ていけるようにもしたいのです

スピンボタン(セルA1にリンク)を操作
A1…スピンボタンにリンクして数字が変わる
B1…INDEX関数でA1の数字とリストから氏名が選択される
B1の値をC1に貼り付ける←ここをマクロにしたい

イベントマクロで
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("B1").Copy
Range("C1").Select
ActiveSheet.Paste
End Sub

としてもうまくいきません
スピンボタンにリンクしたセルの値が変わったと時は
Worksheet_Changeだと無理なので、どうしたらいいでしょう

わかりにくい説明で申し訳ありません

エクセルでスピンボタンを使って数値を上下させたときに
イベントマクロを発生させたいです

セルC1の入力規則のリストから氏名を選択するとグラフが表示されるのですが
いちいちリストから選択するのが面倒なので
スピンボタンでリストの上から順番に見ていけるようにもしたいのです

スピンボタン(セルA1にリンク)を操作
A1…スピンボタンにリンクして数字が変わる
B1…INDEX関数でA1の数字とリストから氏名が選択される
B1の値をC1に貼り付ける←ここをマクロにしたい

イベント...続きを読む

Aベストアンサー

スピンボタンの値が変わった時のイベントではどうでしょう?
また、クリップボード経由でなくても設定できると思います。

Private Sub SpinButton1_Change()
Range("C1") = Range("B1")
End Sub


このカテゴリの人気Q&Aランキング

おすすめ情報