Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6422 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【45052】文字をアニメーションのように help 06/12/11(月) 12:25 質問[未読]
【45053】Re:文字をアニメーションのように Jaka 06/12/11(月) 12:35 発言[未読]
【45057】Re:文字をアニメーションのように help 06/12/11(月) 13:17 質問[未読]
【45058】Re:文字をアニメーションのように Jaka 06/12/11(月) 13:21 回答[未読]
【45059】Re:文字をアニメーションのように help 06/12/11(月) 13:34 お礼[未読]
【45075】Re:文字をアニメーションのように help 06/12/12(火) 11:32 質問[未読]
【45080】Re:文字をアニメーションのように Jaka 06/12/12(火) 12:22 発言[未読]
【45082】Re:文字をアニメーションのように help 06/12/12(火) 12:56 お礼[未読]
【45120】Re:文字をアニメーションのように zaki 06/12/13(水) 12:46 質問[未読]
【45122】Re:文字をアニメーションのように Jaka 06/12/13(水) 13:17 発言[未読]
【45123】Re:文字をアニメーションのように help 06/12/13(水) 13:17 発言[未読]
【45135】Re:文字をアニメーションのように zaki 06/12/13(水) 15:50 質問[未読]
【45137】Re:文字をアニメーションのように help 06/12/13(水) 16:14 発言[未読]
【45140】Re:文字をアニメーションのように Jaka 06/12/13(水) 16:22 発言[未読]
【45155】Re:文字をアニメーションのように zaki 06/12/13(水) 20:53 お礼[未読]
【45276】Re:文字をアニメーションのように 初心者 06/12/17(日) 22:11 質問[未読]
【45287】Re:文字をアニメーションのように Jaka 06/12/18(月) 10:46 発言[未読]
【45319】Re:文字をアニメーションのように Jaka 06/12/19(火) 9:17 発言[未読]
【45052】文字をアニメーションのように
質問  help  - 06/12/11(月) 12:25 -
引用なし
パスワード
   　　　こんにちは、よろしくお願いします。

文字をアニメーションのように右に移動して、また同じ位置に
戻ってくるようにしたいのですが、できますでしょうか？
こんな質問の仕方はいけないと思ったのですが、どなたか
ご教授ください。
【45053】Re:文字をアニメーションのように
発言  Jaka  - 06/12/11(月) 12:35 -
引用なし
パスワード
   こんな感じにするとか
Ｈｔｔｐ://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=143;id=FAQ
↑
修正してください。
変な誘導リンク防止に、直にリンクはれなくなったので....。
【45057】Re:文字をアニメーションのように
質問  help  - 06/12/11(月) 13:17 -
引用なし
パスワード
   　Jakaさん、はじめまして　ありがとうございます。
先ほど教えていただいたところに行けなかったのですが？
【45058】Re:文字をアニメーションのように
回答  Jaka  - 06/12/11(月) 13:21 -
引用なし
パスワード
   「Ｈｔｔｐ」を英文字に直してください。
もしくは目安箱にて、テロップを探してください。
そこのＵＲＬです。
【45059】Re:文字をアニメーションのように
お礼  help  - 06/12/11(月) 13:34 -
引用なし
パスワード
   　　 Jakaさん　ありがとうございます。みつけました。
　　　試してみます。　
【45075】Re:文字をアニメーションのように
質問  help  - 06/12/12(火) 11:32 -
引用なし
パスワード
   　Jakaさん　こんにちは
先日　お世話になりましたhelp　です。早速”テロップ流れ”を試して
みたのですが、With Range(Mad)のところでエラーがでてしまいました。
考えてみたのですが、どうしてもわからなくて・・・
よろしければ教えてください。レベルの低い質問でもうしわけありませんが
お願いします。　
【45080】Re:文字をアニメーションのように
発言  Jaka  - 06/12/12(火) 12:22 -
引用なし
パスワード
   ▼help さん：
>　Jakaさん　こんにちは
>先日　お世話になりましたhelp　です。早速”テロップ流れ”を試して
>みたのですが、With Range(Mad)のところでエラーがでてしまいました。
>考えてみたのですが、どうしてもわからなくて・・・
>よろしければ教えてください。レベルの低い質問でもうしわけありませんが
>お願いします。

それは、
MAd = "B2"
のように書き込むセルアドレスを書いていないからだと思います。
またセルを結合しているとか....。
でも With Range(Mad) ということなので、当てはまりそうに無いです。

できたら、真さらなシートで、コードをカスタマイズなどしないで試してください。
カスタマイズしたものについては、こちらもどう改良されたのかわかりませんから、返答できません。
【45082】Re:文字をアニメーションのように
お礼  help  - 06/12/12(火) 12:56 -
引用なし
パスワード
   　Jakaさん　ありがとうございます。解決しました。とても楽しいです。
　いろいろ試してみます。ありがとうございました。
【45120】Re:文字をアニメーションのように
質問  zaki  - 06/12/13(水) 12:46 -
引用なし
パスワード
   横から入ってすいません。超初心者です。
興味が合って私もやってみましたがエラーが出て動きません。
excel2000ではだめなのでしょうか。
”下記APIコードをモジュールの１番上に記載。”
とあったので、ただ単に貼り付けだけしました。こんなんではだめなのでしょうか？
情けない質問で申し訳ありません。
【45122】Re:文字をアニメーションのように
発言  Jaka  - 06/12/13(水) 13:17 -
引用なし
パスワード
   ▼zaki さん：
>興味が合って私もやってみましたがエラーが出て動きません。
>excel2000ではだめなのでしょうか。
大丈夫です。

>”下記APIコードをモジュールの１番上に記載。”
>とあったので、ただ単に貼り付けだけしました。こんなんではだめなのでしょうか？
何を貼り付けたのか解らないのでなんともいえませんが、ＡＰＩだけでは動きません。
ＡＰＩは、速度調整用に使っているだけです。
【45123】Re:文字をアニメーションのように
発言  help  - 06/12/13(水) 13:17 -
引用なし
パスワード
   　　 zakiさん　こんにちは
　　　横からはいってすみません。私も２０００を使用してますが
　　　動きました。
　　　　　　　　　　　　　　　
【45135】Re:文字をアニメーションのように
質問  zaki  - 06/12/13(水) 15:50 -
引用なし
パスワード
   ありがとうございます。
下記をそのまま貼り付けたのですが、だめなのでしょうか？
実行するだけではだめなのでしょうか？
初心者ですいません。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

***********************************************************
Sub テロップ流れ1_セル版()
　　Dim st1 As String, SP1 As String, TX1 As String, Flg As Boolean
　　Dim DefoFntIdx As Long, Defocol As Double, i As Long
　　Dim MAd　As String
　　
　　MAd = "B2"
　　st1 = "シート内容に注意！！"
　　SP1 = StrConv(Space(4), vbWide)　'間隔
　　
　　'文字を１回1回ループさせようと思ったが、最初に作っておくのが簡単。
　　For i = 1 To 6
　　　　TX1 = TX1 & st1 & SP1
　　Next

　　TX1 = TX1 & StrConv(Space(Int(Len(st1) \ 2)), vbWide)
　　With Range(MAd)
　　　　.Value = ""
　　　　If .Column > 1 Then
　　　　　 If .Offset(, -1).Formula = "" Then
　　　　　　　.Offset(, -1).Value = Space(1)
　　　　　　　Flg = True
　　　　　 End If
　　　　End If
　　　　DefoFntIdx = .Font.ColorIndex
　　　　Defocol = .ColumnWidth
　　　　With .Font
　　　　　　.ColorIndex = 2
　　　　　　.Name = "HG正楷書体-PRO"
　　　　　　'.FontStyle = "ﾒﾃﾞｨｳﾑ 太字 斜体" 'PCによって無い。2002
　　　　　　.Size = 20
　　　　　　.Bold = True
　　　　　　.Italic = True
　　　　End With
　　　　.HorizontalAlignment = xlRight
　　　　.Value = StrConv(Right(st1, Len(st1) - 4), vbWide)
　　　　.Columns.AutoFit
　　　　FitCol = .ColumnWidth
　　　　.ColumnWidth = FitCol
　　　　.Value = ""
　　　　.Font.ColorIndex = 3
　　　　
　　　　For i = 1 To Len(TX1)
　　　　　　.Value = .Value & Mid(TX1, i, 1)
　　　　　　Sleep 200
　　　　Next
　　　　
　　　　.ColumnWidth = Defocol
　　　　.Font.ColorIndex = DefoFntIdx
　　　　.ClearContents
　　　　If Flg Then
　　　　　.Offset(, -1).ClearContents
　　　　End If
　　End With
End Sub
【45137】Re:文字をアニメーションのように
発言  help  - 06/12/13(水) 16:14 -
引用なし
パスワード
   ▼zaki さん：こんにちは
>
>
>
>
>　　Declare Sub Sleep Lib"kernel32"(ByVal dwMilliseconds As Long)

>
>***********************************************************
>Sub テロップ流れ1_セル版()
>　　Dim st1 As String, SP1 As String, TX1 As String, Flg As Boolean
>　　Dim DefoFntIdx As Long, Defocol As Double, i As Long
>　　Dim MAd　As String
>　　
>　　MAd = "B2"
>　　st1 = "シート内容に注意！！"
>　　SP1 = StrConv(Space(4), vbWide)　'間隔
>　　
>　　'文字を１回1回ループさせようと思ったが、最初に作っておくのが簡単。
>　　For i = 1 To 6
>　　　　TX1 = TX1 & st1 & SP1
>　　Next
>
>　　TX1 = TX1 & StrConv(Space(Int(Len(st1) \ 2)), vbWide)
>　　With Range(MAd)
>　　　　.Value = ""
>　　　　If .Column > 1 Then
>　　　　　 If .Offset(, -1).Formula = "" Then
>　　　　　　　.Offset(, -1).Value = Space(1)
>　　　　　　　Flg = True
>　　　　　 End If
>　　　　End If
>　　　　DefoFntIdx = .Font.ColorIndex
>　　　　Defocol = .ColumnWidth
>　　　　With .Font
>　　　　　　.ColorIndex = 2
>　　　　　　.Name = "HG正楷書体-PRO"
>　　　　　　'.FontStyle = "ﾒﾃﾞｨｳﾑ 太字 斜体" 'PCによって無い。2002
>　　　　　　.Size = 20
>　　　　　　.Bold = True
>　　　　　　.Italic = True
>　　　　End With
>　　　　.HorizontalAlignment = xlRight
>　　　　.Value = StrConv(Right(st1, Len(st1) - 4), vbWide)
>　　　　.Columns.AutoFit
>　　　　FitCol = .ColumnWidth
>　　　　.ColumnWidth = FitCol
>　　　　.Value = ""
>　　　　.Font.ColorIndex = 3
>　　　　
>　　　　For i = 1 To Len(TX1)
>　　　　　　.Value = .Value & Mid(TX1, i, 1)
>　　　　　　Sleep 200
>　　　　Next
>　　　　
>　　　　.ColumnWidth = Defocol
>　　　　.Font.ColorIndex = DefoFntIdx
>　　　　.ClearContents
>　　　　If Flg Then
>　　　　　.Offset(, -1).ClearContents
>　　　　End If
>　　End With
>End Sub
　　　 私も初心者です。このコードを標準モジュールに記述して
　　　　シートに配置したコマンドボタンのクリックで動くように
　　　　私はしました。このまま素直に記述すれば動くと思いますよ。
【45140】Re:文字をアニメーションのように
発言  Jaka  - 06/12/13(水) 16:22 -
引用なし
パスワード
   >***********************************************************
この部分は、単に文中での区切りに使っているだけだから、コードには含みません。
そのままだと、赤文字でエラーになると思います。
あえて入れたいなら、先頭に「'」をつけてコメントにしてください。
【45155】Re:文字をアニメーションのように
お礼  zaki  - 06/12/13(水) 20:53 -
引用なし
パスワード
   みなさんありがとうございました。
親切な回答で、初心者の私にも理解できました。
今後もよろしくお願いします。
【45276】Re:文字をアニメーションのように
質問  初心者  - 06/12/17(日) 22:11 -
引用なし
パスワード
   　　jakaさん　はじめまして自分も興味があって楽しませて
　　もらいました。コードを理解しようと思ったのですが
　　
　 Value="" はどういう意味なのか？
　　If.Column>１　Then　はどういう意味なのか？
　　If のあとにどうしてドットがいるのか？
　　あまりにも初歩的なことだとは思いますが
　　ご教授ください。よろしくお願いします。
【45287】Re:文字をアニメーションのように
発言  Jaka  - 06/12/18(月) 10:46 -
引用なし
パスワード
   ▼初心者 さん：
>　 Value="" はどういう意味なのか？
セルの内容を空にする。 = Empty とするのが本当なんだろうけど、
セルに入れた関数
= ""
をコピーして値だけ貼り付けをした時と違って、Vakueプロパティは、長さ０の文字列をしないでEmpty値を解釈してくれるみたいなので、楽に入力できる = "" を使いました。

>　　If.Column>１　Then　はどういう意味なのか？
１列目でなかったらということなので、正確には <> 1 の方が良かったのかも。

>　　If のあとにどうしてドットがいるのか？
>　　あまりにも初歩的なことだとは思いますが
１番上の .Value と同じ使い方です。
これの使い方については、ヘルプでWithステートメントを見てください。
【45319】Re:文字をアニメーションのように
発言  Jaka  - 06/12/19(火) 9:17 -
引用なし
パスワード
   寝起きになぜかふと思いだした。
↑は、質問者の聞きたいことじゃないな。と....。

あのコードの特徴は、カスタマイズしやすいこと。
テロップを書き込むセルの場所を
MAd = "B2"
の「B2」部分を書き換えるだけで、どのセルでも対応できるようにしてあります。
（ZZ70000とかありえないのは無視しましたが....。）

例えば、
MAd = "A2" とした場合、Ａ列より左の列はないわけだから
.Offset(, -1).Value
この時点でエラーになります。
これらに対応できるように初めから書いておきました。

また、コードが短いので、
With Range(MAd)　を、
With Range("B2")　としても良かったんですが、
変数に入れた方が、解りやすいと思って....。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6422 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free