- ベストアンサー
数字をスクロール表示は可能?
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
No.3・4です! ほんとうに何回もごめんなさい。 1000行を1秒間隔で表示させるとなると約16~17分かかる計算になってしまいます。 ちょっと時間的に長すぎますので、マクロを中断したい場合は Escキーを押してください。 一気に最後までマクロが実行されます。 どうも何度も何度も失礼しました。m(__)m
その他の回答 (4)
- tom04
- ベストアンサー率49% (2537/5117)
No.3です! たびたびごめんなさい。 投稿した後でNo.2さんの補足を読ませてもらいました。 貼り付け&実行方法ですが・・・ 当方使用のExcel2003の場合は シート見出し(画面の下側にSheet1・Sheet2・・となっている部分)の Sheet1の上で右クリック → コードの表示 を選択します。 その画面上に前回投稿したコードをコピー&ペーストしてください。 (Excel2007の場合も同様の方法でOKだと思います) そして、メニュー → ツール → マクロ → 実行 これでマクロが実行されます。 尚、Excel2007の場合はメニューの中の「開発」タブを選択すると マクロのアイコンが出ると思います。 どうも何度も失礼しました。m(__)m
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは! 一例です。 ↓のコードを貼り付けて実行してみてください。 Sub test() Dim i As Long For i = 1 To 1000 Worksheets("sheet1").Cells(i, 1).Activate Worksheets("sheet1").Cells(i, 1) = Worksheets("sheet2").Cells(i, 1) Application.Wait Time:=Now + TimeValue("00:00:01") Next End Sub 1秒ごとにマクロを実行する方法ではなく、 1秒待って、マクロを実行するようにしてみました。 以上、参考になれば良いのですが 的外れなら読み流してくださいね。m(__)m
- jcctaira
- ベストアンサー率58% (119/204)
VBAのコードは以下の通りになります。 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub 数字スクロール() Sheets("Sheet1").Select Range("A:A").ClearContents Application.Goto Range("A1"), True For 行 = 1 To 1000 Cells(行, "A") = Sheets("Sheet2").Cells(行, "A") Application.Goto Cells(行, "A"), True Sleep (1000) DoEvents Next 行 End Sub
補足
回答をありがとうございます。 私、全くVBAというものを知らないのですがぜひやってみたいと思います。 まず、動くところを見て興味を持ちたいと思います。 このコードといわれるものはこれをどこにコピペ(?)すればいいのでしょうか?
- MRT1452
- ベストアンサー率42% (1392/3296)
セル式でそういう式があるかは、わかりかねますが、VBAであれば可能です。 タイマで1秒間隔を取り、対象セルをずらしながら転記していくようにすれば可能です。 タイマ処理の組み方に関しては、検索を掛ければ、いくつかサンプルが引っ掛かると思うので、 それらを参考にすればよいかと。
関連するQ&A
- 並びの違う数字の一致数を表示するには
並びの違う数字の一致数を関数で表示できないか色々とやっているのですが、表示する迄結果が出ずに苦労しています。 並びが一緒なら、MATCH関数で出来るのですが、並びの違う数字の場合は、色々と調べているんですが、結果が出ない状態で苦労しています。 結果を出したいのは、以下の通りです。 A B C 12345 65984 3 32654 12654 4 36985 14789 2 36587 15986 3 45163 10234 4 A列全体の数字のリストに対して、B1 B2 B3 B4 B5と言った具合に、B列の1つのセルに入っている数字の並びは関係無く、同じ数字が幾つ存在しているかC列に比較した結果を出したいと思っています。 並びが順不同での比較は可能でしょうか? ご教授お願いします。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで、数字の並びを ごちゃまぜに並べ直したい。
エクセルで、数字の並びを ごちゃまぜに並べ直したい。 お世話になります。 Aセルの縦方向に、数字が沢山 書いてあります。(約15万個の数字) これを、すぐ横のBセルに、マジごちゃまぜで、並び替えてほしいのです。 やり方を、教えて下さい。
- ベストアンサー
- オフィス系ソフト
- エクセル、数字の「0」が表示されません
エクセルのシートで 「シート1」、「シート2」 があるとします。 現在、「シート1」の「A1」に文字や数字を入力すると 自動的に「シート2」の「A1」に同じ内容が入力されるようになっています。 (因みに「シート2」の「A1」には下記の式が入っております。 =シート1!A1 ) この前気付いたのですが、 数字の「0」を入力しますと 「シート2」の方には反映されません。 一応「セルの書式設定」で色々と「表示形式」を変えたのですが うまくいきませんでした。 どうか解決方法を教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで、こんな数字の分け方したいのですが・・・
お世話になります。 例として) A1のセルに、 -10、0、10 のいずれかが入力されると・・・ 結果として、 B1のセルに、 0 と計算させたいです。 他の数字で例えると、 A1のセルに、 0、10、20 のいずれかが入力されると・・・ 結果として、 B1のセルに、 10 と計算させたいです。 ようするに、A1に入る数字のブレを、補正して B1に自動表示させたいということです。 A1のセルには、0とか、 10とか、 -10、 110、 -120 といったように、 1の位は、全て丸めてあります。 どうでしょうか? 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【エクセル2003】 不規則に入力された数字がある列の中で最大のものを探すには?
いつも、お世話になってます。 シート1とシート2とシート3のそれぞれのセルA1列~A50までに、200以下の数字が不規則に入力されています。 同じ数字はありません。 シート1のB1に3つのシートのA1~A50のセルに入力されているうち、最大の数字を表示させたいのですが、どのような式になりますでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- スクロールバーの表示が数字になってしまいました
以前、間違ってXX.gif(XXは不明)と言うファイルを消してしまってからスクロールバーの表示が上下・左右とも数字になってしまっています。動作させるには支障ないのですが、見にくいのでどなたか詳しい方教えてください。何と言うファイルをどこにコピーすればいいかが知りたいです。
- ベストアンサー
- Windows Me
- Excelでセルに入っている数字を時刻(0:00:00)として表示する方法(※セルの表示形式の変更ではありません。)
A B 1 24 0:00:24 2 76 0:01:16 セルA1に「24」という数字が入っています。 セルA1の数字を秒として、セルB1に「0:00:24」と表示させたいです。 セルA2、B2のようにもできれば理想です。 単純に関数を使って「="0:00:""A1"」とB2に入力しても、正しく表示はできませんでした。 「="0:00:"A1」も同様に、関数ではないのでエラーです。 方法ご教授お願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで数字が表示されない
エクセル2003を使用しています。 あるセルに半角数字が入っているのですが、セルには表示されません。数式バーには表示されるのにです。 セルの書式設定を見ましたが、セルの背景は色無し、フォントは黒(自動)です。条件付書式も使用していません。 数字以外の文字は入ります。シート全体のセルが同じようになっています。 数字を表示させるにはどうしたらいいでしょうか?
- 締切済み
- オフィス系ソフト
- 【Excel】 シート名の最後の数字を表示する
こんにちは シートの名前が「あ-1」「あ-2」「い-1」「い-2」…というようなシートが有ります。 それぞれのシートのA1セルに自身のシート名の最後の数字(「あ-1」なら「1」)を 表示するようにしておきたいのですが、その場合のA1の式を教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルで秒表示させたい!
お世話になります。 1つのセルの中に「×分○○秒△△」と表示させたいのですが どのように設定すればよいのでしょうか? 手順としては、シートAのセルに文字列として「01234」と入力した ものを、リンク貼付けでシートBのセルに「0分12秒34」と表示させ たいのです。 何卒ご教示くださいますよう、お願い致します。
- ベストアンサー
- オフィス系ソフト
補足
ありがとうございます。 今夜やってみます。 わからないときはまたお願いします