エクセルで自動入力のためのマクロを作っています。
その中で、日付をスピンボタンで動かしたいのですが、どうしても「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と関連する良く見られている質問

QEXCELにて、同一日付であれば空白にしたい

EXCELにて、同一日付であれば空白にしたい
EXCELにて、同一日付であれば空白にしたいのですが、できればVBAを使用せず実現したい。
ヒントをお願いします

Aベストアンサー

回答No2です。ダブった日付を白文字にするときにページが変わったところで空白になるのは避けたいとのことでしたらページの区切りを求める関数はありませんので、例えば1ページが49行で50行のところが次のページになるなどのことが判っていればA2セルから下方を選択してからの条件付き書式の設定で入力する式は次のようにすることでよいでしょう。

=AND(MOD(ROW(),50)<>0,A2=A1)

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 等のスタートの...続きを読む

QWORD差し込み印刷:日付の処理 - EXCELが空欄だと今日の日付が差し込まれてしまう

WORDの差し込み印刷について質問させてください。

EXCELのデータで日付を入れている列があります。この列に空欄がある(つまり日付が入力されていない)と、差し込み先のWORDのほうで、今日の日付が出てしまいます。

EXCELのデータが空欄の場合には、WORDの方に今日の日付を出さない(空欄のままにしておく)方法はありますか?

OSはWinXP, WORDとEXCELは2003を使っています。

よろしくお願いします。

Aベストアンサー

Word2002で確認したところ、質問と同じようになりました。
フィールドコードについては詳しくありませんが、消すことができました。
日付が空欄のところの差し込みフィールドでマウス右クリックしてフィールドコードの表示/非表示をクリックして表示させると
{MERGEFIELD"フィールド名"}となっていると思います。
1方法はココの”フィールド名"を削除すれば日付は表示されません。
もう一つの方法はフィールドを右クリックしてフィールドの編集を選択します。「フィールド」ダイアログボックスが現れます。
フィールドの種類から「差し込み印刷」を選択し、フィールドの名前から「If」を選択して条件式を入力する。
フィールドコードは
「If 式1 演算子 式2 Trueの場合の文字列 Falseの場合の文字列」
ここに
「If 日付のフィールド名<>"" "yyyy/mm/dd" ""」
というのを入力したところ表示されないようになりました。
日付のフィールドがブランクでない場合はyyyy/mm/dd、そうでなければブランクという条件式です
差し込みの1枚目のフィールドで条件式を入れておけば、日付空欄のところはすべて空欄にできると思います。
試しにチャレンジしてみて下さい。

Word2002で確認したところ、質問と同じようになりました。
フィールドコードについては詳しくありませんが、消すことができました。
日付が空欄のところの差し込みフィールドでマウス右クリックしてフィールドコードの表示/非表示をクリックして表示させると
{MERGEFIELD"フィールド名"}となっていると思います。
1方法はココの”フィールド名"を削除すれば日付は表示されません。
もう一つの方法はフィールドを右クリックしてフィールドの編集を選択します。「フィールド」ダイアログボックスが現れます。
...続きを読む

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]キー の順押し。
...続きを読む

QExcelで日付を入力したら締日を表示させる

Excelで経費の支払いの表を作ろうとしています。

A列のセルに日付を入力し、
A列に入力した日付が1日~15日までなら
B列のセルにその月の最終日の日付を
16日~31日までなら
B列に翌月の15日と自動で表示されるようにするには
どうすればいいのでしょうか?


詳しい方、教えてください。
ちなみに使用しているExcel2010です。

Aベストアンサー

ごめ。よく読んだら半月ずれてましたな。

=IF(DAY(A1)<15,DATE(YEAR(A1),MONTH(A1)+1,1)-1,DATE(YEAR(A1),MONTH(A1)+1,15))

MONTH(A1)+1で「13月」とか出てきちゃいそうですが、Excelはちゃんと「翌年1月」と計算しなおしてくれますから大丈夫です。

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

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

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

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

よろしくお願いします。

Aベストアンサー

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

QEXCELの日付データの比較

EXCELの日付データについての質問です。

たとえば、あるテキストデータでH20.7.19とあったとします。
それとEXCELの日付データにもH20.7.19があったとします。

テキストデータのH20.7.19をEXCEL側に貼り付け、EXCELの日付データH20.7.19と比較させ、答え0(誤差0)を返してもらう方法はありますでしょうか?

宜しくお願いいたします。

Aベストアンサー

こんにちは
DAYS360(開始日,終了日,方式)という関数で日数の差異を
求められます。

A1にテキストデータ H20.7.19
A2にエクセルデータ H20.7.19

があったとします。
=DAYS360(A1,A2)
で差異が0で返ってきます。 0じゃ無かったら別のものですね。

方式はヨーロッパ方式(TRUE)、アメリカNASD方式(FALSE)とか
書いてありましたが、違いはようわかりませんww
付けなくてもいいかとw

適当ですが、ご参考まで^^;

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

Qexcel,word 印刷した日の日付

excel,word文書を印刷したとき、その印刷日の日付を印字させるためにはexcel,word各々
どのようなことをすればよかったでしょうか。

Aベストアンサー

<Excelでの編集方法>
 メニューの「ファイル」-「ページ設定」で
 「ヘッダー/フッター」タブを選択。
 上に表示したい場合は「ヘッダーの編集」ボタン。

 編集画面の上に「日付の挿入」ボタン(カレンダーみたいなボタン)があるので
 それを押せば日付入力できます

<Wordでの編集方法>
 メニューの「表示」-「ヘッダー/フッター」を選択すると
 ヘッダーとフッターが点線で囲まれます。
 お好きなほうを選択し「日付の挿入」ボタンを押せば表示されるようになりますよ。

Q【エクセル】シートを保護するとスピンボタンが使えなくなる。

いつもお世話になってます。

エクセル2003で別の人が作ったファイルがあります。
シート上にスピンボタンがあります。
シートを保護してもスピンボタンは動作します。
そのスピンボタン自体にはマクロは設定されていません。

同じようなファイルを作ったのですが、私が作った物はシートを保護するとスピンボタンが動かなくなります。

ちなみに、前任者が作ったファイルのスピンボタンのコントロールの書式設定の「保護」タブのロックにはチェックが入ってます。

私のもそうしてみました。

前任者のファイル(シート)を保護する時、ツール→保護→シートの保護では、一番上の「シートとロックされたセルの内容を保護する」と「ロックされたセル範囲の選択」と「ロックされていないセル範囲の選択」だけにチェックが入ってます。

私のもそうしてみました。

その設定でシートを保護したところ、やはり私のファイルだけはスピンボタンが使えません。

他に何か理由は考えられるでしょうか?

よろしくお願いします。

Aベストアンサー

Excel のコントロールは同じように見えても何種類かありまして。。
[表示]-[ツールバー] でも

  1. [コントロール ツールボックス] のスピンボタン
  2. [フォーム] のスピンボタン

があります。どちらでしょう?

ご質問から察するに、1. の場合で、デザインモードのままなのでは?
[コントロール ツールボックス] にある三角定規のアイコンがヘコん
だままになってませんか?

さらに共通していえるのが、

1. の場合、LinkedCell プロパティー
2. の場合、[コントロールの書式設定]-[コントロール]

でそれぞれリンクセルが設定できますが、このセルがロックされて
いてはダメです。

はずしてましたらご容赦を。


人気Q&Aランキング