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 -

引用なし
パスワード
   こんな感じにするとか
Http://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 -

引用なし
パスワード
   「Http」を英文字に直してください。
もしくは目安箱にて、テロップを探してください。
そこのURLです。

【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コードをモジュールの1番上に記載。”
とあったので、ただ単に貼り付けだけしました。こんなんではだめなのでしょうか?
情けない質問で申し訳ありません。

【45122】Re:文字をアニメーションのように
発言  Jaka  - 06/12/13(水) 13:17 -

引用なし
パスワード
   ▼zaki さん:
>興味が合って私もやってみましたがエラーが出て動きません。
>excel2000ではだめなのでしょうか。
大丈夫です。

>”下記APIコードをモジュールの1番上に記載。”
>とあったので、ただ単に貼り付けだけしました。こんなんではだめなのでしょうか?
何を貼り付けたのか解らないのでなんともいえませんが、APIだけでは動きません。
APIは、速度調整用に使っているだけです。

【45123】Re:文字をアニメーションのように
発言  help  - 06/12/13(水) 13:17 -

引用なし
パスワード
      zakiさん こんにちは
   横からはいってすみません。私も2000を使用してますが
   動きました。
               

【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回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回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>1 Then はどういう意味なのか?
  If のあとにどうしてドットがいるのか?
  あまりにも初歩的なことだとは思いますが
  ご教授ください。よろしくお願いします。

【45287】Re:文字をアニメーションのように
発言  Jaka  - 06/12/18(月) 10:46 -

引用なし
パスワード
   ▼初心者 さん:
>  Value="" はどういう意味なのか?
セルの内容を空にする。 = Empty とするのが本当なんだろうけど、
セルに入れた関数
= ""
をコピーして値だけ貼り付けをした時と違って、Vakueプロパティは、長さ0の文字列をしないでEmpty値を解釈してくれるみたいなので、楽に入力できる = "" を使いました。

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

>  If のあとにどうしてドットがいるのか?
>  あまりにも初歩的なことだとは思いますが
1番上の .Value と同じ使い方です。
これの使い方については、ヘルプでWithステートメントを見てください。

【45319】Re:文字をアニメーションのように
発言  Jaka  - 06/12/19(火) 9:17 -

引用なし
パスワード
   寝起きになぜかふと思いだした。
↑は、質問者の聞きたいことじゃないな。と....。

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

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

また、コードが短いので、
With Range(MAd) を、
With Range("B2") としても良かったんですが、
変数に入れた方が、解りやすいと思って....。

6422 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free