投稿者
　メール
　　題名
　　内容 入力補助動画検索画像・ファイル<IMG><OBJECT>タグが利用可能です。(詳細)
　　　　
　 ﾌｧｲﾙ1
　 ﾌｧｲﾙ2
　 ﾌｧｲﾙ3
アップロード可能な形式(各1MB以内)：
画像(gif,png,jpg,bmp) 音楽(mmf,mld) 動画(amc,3gp,3g2)

　ＵＲＬ
[ ケータイで使う ] [ BBSティッカー ] [ 書込み通知 ] [ teacup.コミュニティ ] [ 検索 ]
キーワード: 競馬ソフト Excel 自作

投稿募集！　スレッド一覧

スレッド作成 他のスレッドを探す
[PR] スタッフアルバイト プライバシーマーク 一戸建物件札幌 料理仕出し島根県 
[ teacup. ] [ 無料掲示板 ] [ プレミアム掲示板 ] [ teacup.コミュニティ ] [ ブログ ] [ チャット ]
全247件の内、新着の記事から10件ずつ表示します。 2  3  4  5  6  7  8  9  10  11  |  《前のページ |  次のページ》 

うんざりしないで下さい。

 投稿者：ミヨチャン  投稿日：2008年10月 1日(水)12時57分46秒 		返信・引用
  疑問1
TopシートセルB1、セルB3、セルB5、セルB7、セルB8、セルB10、セルC10、セルD10、セルE10、セルF10
に表示されるべき、
名前、開催日、データ取得、RACE_Fromtime,RCOV_Fromtime、ファイルの種別、ファイル名、年月日、区分、データ数等の文字がTopシート上に表示されないのですが？
原因を教えて下さい。
疑問2
Topシート上に貼り付けた、「速報系データ[OBXX]の"OB"は数字の0か、英字のO(オー)か、筈かしながら、解りません。
教えて下さい。
宜しく、お願い申し上げます。 		 

JVData Explorerエラーの件

 投稿者：ミヨチャン  投稿日：2008年10月 1日(水)11時22分23秒 		返信・引用
  　また、お世話になります。
競馬プログラム自作教室、「JVData Explorer」の作成(第5回ー1)
レース補填情報取得[RCOV]終了しました。
Excelwo閉じようとクリックしたら、
コンパイルエラー
End Sub.End FunctionまたはEnd Propety以降には、コメントのみ記述できます。
と表示され、
Woykbook Openコード記述欄の
'********************* ブックを閉じるときに"Top"シートを表示(ThisWorkbook) *******************

→Private Sub Workbook_BeforeClose(Cancel As Boolean)が黄色のマーカー表示され、

'時間管理情報を取得しLoadFromtime_RACE、ワークシートに表示lasttime_RACE=LoadFromtime_RACE()の LoadFromtime_RACEの部分にブルーマーカーが
表示されました。
そして、再度、起動させると、今度は、
コンパイルエラー
SubまたはFunctionが定義されていません。となります。
'**************** ブックを開くときにFromTimeデータを読み込む(ThiWorkbook) *******************

→Private Sub Workbook_Open()が黄色のマーカー表示され、

Dim lasttime_RACE As String
    Dim lasttime_RCOV As String

    If ActiveSheet.Name = "Top" Then Call Worksheet_Activateの
Call Worksheet_Activateの部分にブルーマーカーが表示されます。
これらの解消方法をご指導頂きたく、宜しくお願い申し上げます。
(DIY)は、やめました。 		 

08-09-20（土）に「おずたん」の不具合がありました。

 投稿者：じゃば  投稿日：2008年 9月20日(土)20時54分31秒 		返信・引用
  皆さん、こんばんは。管理人・じゃばです。

いつもお世話になります。
本日(08-09-20土）に「おずたん」を動かしたとき、午前中はダウンロードできたのに、
午後からダウンロードができす、レース結果も更新できなかったという不具合が起こりました。

原因は、通常は木曜（08-09-18）に提供されるだけの騎手マスタが、修正されて本日
再度提供されたようです。このため「おずたん」が開催日当日のデータとマスタデータ
の区別ができなくなり、ダウンロードができなくなったようです。

対策は、古い騎手マスタデータを削除して、修正版マスタに置き換えればいいのですが、
この置き換えと、余分に作成されたフォルダを削除する作業をユーザーさんに
手作業で行っていただく必要があります。

ご不便をおかけしますが、「お知らせ・バグ情報」のページあるいは、下記ページ
（内容は同じ）を参考にして修正してください。
http://homepage1.nifty.com/hyperwin/Oztan_080920_Error.htm

この修正を行わないと、もし明日（08-09-21日）もご利用の場合は、
やはりうまく動かないと思われますので、明日のご利用前に修正してください。 		 

takaさん・じゃばさん感謝

 投稿者：ミヨチャン  投稿日：2008年 9月20日(土)14時46分20秒 		返信・引用
  何も解らない小生のために貴重な時間を使用させてしまい、
誠に申し訳ありません。
感謝、感謝です。
　暫くの間、裁判所のパドックに行くこととなり(離婚調停・審判等)
プログラムは、中断となってしまいました。
　必ず、復帰したいと考えています。
それまで、皆様もお元気でお過ごしください。
　本当に、ありがとう御座いました。 		 

takaさん、ヘルプありがとうございます

 投稿者：じゃば  投稿日：2008年 9月18日(木)07時34分38秒 		返信・引用
  takaさん、こんにちは。

プログレスバーの詳しい説明ありがとうございます。
プログレスバーはVBNet用かなと思っていましたが、Excelでも
プログレスバーが追加できることを知りましたが、設定がよく
わからず、ミヨチャンさんに「ノーコメント」としてしまいました。

また今後もヘルプよろしくお願いします。


ミヨチャンさん、参考になさってください。 		 

Re: (無題)

 投稿者：通りすがりのtaka  投稿日：2008年 9月18日(木)02時00分28秒 		返信・引用
  > No.191[元記事へ]

通りすがりのtakaさんへのお返事です。

コメントの訂正です。
>
> Sub Progress_Display()
>  Dim i As Long
>
>     UserForm1.Show (vbModeless)
>     For i = 0 To 100
>         Sleep (100)      '0.1秒待ち
>         'このFOR〜NEXTループ文の中にタイマー（Sleep）の代わりに、時間のかかる処理を
>         '書けます。　ただしその場合は、下の.Valueプロパティにiではなく、
>         '処理済み件数（変数）÷全体件数×100　　の値を代入する必要がありますので、
>         '全体の処理件数が分かっている必要があります。
>         UserForm1.ProgressBar1.Value = i
>         DoEvents
>     Next
>
>     MsgBox "処理は終了しました"
>     Unload UserForm1
> End Sub


>         'ただしその場合は、下の.Valueプロパティにiではなく、
>         '処理済み件数（変数）÷全体件数×100　　の値を代入する必要がありますので、
>         '全体の処理件数が分かっている必要があります。

上記の部分は、ループ処理でループ回数が100回でない場合や、連続処理の途中で、.Value
プロパティの値を変更して、処理の進行状況を表示する場合に適用される内容です。 		 

Re: (無題)

 投稿者：通りすがりのtaka  投稿日：2008年 9月18日(木)01時11分6秒 		返信・引用
  > No.190[元記事へ]

ミヨチャンさん、じゃばさんへのお返事です。

じゃばさん、横レス失礼いたします。

> ミヨチャンさん、こんにちは。
>
> 又、タイマーは、Microsoftのプログレスバーを選択しました。もっともこれの記述方法
> がわからないため、プロパティウィンドウで5000に指定しました。

お話の経緯はよく分かりませんが、このサイトはエクセルをメインに扱われていますので
Excel-VBAに関しての説明とさせて頂きます。　ただし、プログレスバーはVB.Netでも基本的
に同様の機能ですから、参考にはなると思います。
プログレスバーは基本的に処理等の進行状況を示すのに「帯の長さで進行状況を示す」使わ
れますが、自発的にプログレスバーの値プロパティ（.Value）を変化させることは出来ませ
んので、連続処理の途中や繰り返し処理等の中で（.Value）プロパティを変化させる必要が
あります。

ディフォルト（規定値）では、帯のフルスケール（.Maxプロパティ）は100で、.Valueプロ
パティを100にすると帯がフルスケール表示されます。
.Maxプロパティを変更することにより、帯のフルスケール値を変更することが出来ます。
処理の進行状況を.Value値に代入しなければならないため、全体の処理数や処理時間等が
分からないと正確な処理状況は表示できません。
例　　….Value = 処理済みカウント数 ÷ 全体の処理数 × 100

通常、Excel（VBEのツールボックス）のコントロールにはありませんが、簡単な設定により
プログレスバー（VB6.0用かな？、でも利用できます）も使用できるようになります。


動作をイメージするため、エクセルのVBEでユーザーフォーム上に以下のようにプログレス
バーを作成して確認して下さい。

（１）まず、エクセルでファイルを新規作成し、ユーザーフォーム（名称：UserForm1）を
　　　挿入で作成して下さい。
（２）ユーザーフォーム上にダミーのコントロールを作成します。
　　　ここでは、コマンドボタンを１つ作成して下さい。
　　　この操作をしないと次の作業が行えません。
（３）VBEのメニューで、「ツール」−「その他のコントロール」を選択して、一覧の中から
　　　「Microsoft ProgressBar Cntrol 6.0 (SP6)」を探してチェックボタンをマウスで
　　　クリックして×マークを表示させて、「ＯＫ」ボタンを押します、これで準備完了です。
　　　これで、VBEでユーザーフォーム編集状態にすると表示されるツールボックスにプログ
　　　レスバーのアイコンが追加されているはずです。
（４）ツールボックスでコントロールを選択して、UserForm1上にプログレスバー（ProgressBar1）
　　　を作成して下さい。
（５）次にじゃばさんの例のように、Windows API(Sleep)を使かったサンプルを用意します。
　　　VBEで「標準モジュール」を挿入します。
（６）標準モジュールの一番上に下記の1行を記述します。
　　　Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
（７）以下のコードを標準モジュールに貼り付けます。

Sub Progress_Display()
Dim i As Long

    UserForm1.Show (vbModeless)
    For i = 0 To 100
        Sleep (100)      '0.1秒待ち
        'このFOR〜NEXTループ文の中にタイマー（Sleep）の代わりに、時間のかかる処理を
        '書けます。　ただしその場合は、下の.Valueプロパティにiではなく、
        '処理済み件数（変数）÷全体件数×100　　の値を代入する必要がありますので、
        '全体の処理件数が分かっている必要があります。
        UserForm1.ProgressBar1.Value = i
        DoEvents
    Next

    MsgBox "処理は終了しました"
    Unload UserForm1
End Sub

（８）エクセル上で、マクロの実行で「Progress_Display」を実行して下さい。

なお、「その他のコントロール」にはこれ以外にも、結構有用なコントロールが存在します。
当方が比較的よく使うものに、WebBrowser、カレンダーコントロール、スライダーなどがあり
また他にもたくさんありますので調べられては如何でしょう。
ただし、使い方は通常の書籍にはほとんど書かれていませんので、MicrosoftのMSDNサイト辺り
で参考資料を探す必要があるかもしれません。

では、参考になれば幸いです。 		 

Re: (無題)

 投稿者：じゃば  投稿日：2008年 9月17日(水)16時15分49秒 		返信・引用
  > No.189[元記事へ]

ミヨチャンさん、こんにちは。

タイマーにこだわりですか。まあ確かに確実にコントロールできますからね。
私もよく使っている方かもしれません。（ただしWindowsAPIの方ですが）


> と記述するとコンパイルエラーと表示され、subまたはFunctionが定義されていません。
> となります。

これはTimerというサブルーチンが定義されていないせいかと思います。


> 又、タイマーは、Microsoftのプログレスバーを選択しました。もっともこれの記述方法がわからないため、プロパティウィンドウで5000に指定しました。

私はプログレスバーというコントロールは使ったことがありません。これをタイマー代りに
使うことができるのでしょうか。これについては済みませんがコメントできません。


私が使うタイマー機能はWindowsAPIを使う方法です。これはVBAでもVBNetでも使えると
思いますが、私はExcelでしか使ったことがありません。
サンプルは下記のようにテストしてみてください。ただし、DIYの本と同じように使えるか
どうかは判りませんので、ご自分で確認してください。

（１）まず新規にExcelを作り、ExcelのVBEモードで「標準モジュール」を挿入します。
モジュールの名称はそのままで構いません。

（２）標準モジュールの一番上に下記の1行を記述します。これがAPIです。
Sleepというミリ秒単位で動作を休止する機能です。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

（３）同じ標準モジュールで、上記の記述の下に下記のマクロを記述します。
これがタイマーをオンオフするサブルーチンです。
使い方は、Modeを変数として呼び出します。Mode=Trueでオン、Mode=Falseでオフです。
オンの時間はSleepの後のカッコの中で設定します。ここでは(1000)すなわち１秒に固定
しています。長さを変えたいときはここを変更してください。
（オフ時は実際には何もしていません）

'**********タイマーをオンオフするサブルーチン*********
Public Sub TimerSW(ByRef Mode As Boolean)

    If Mode = True Then

        MsgBox "タイマーオン" 'これは本来余分なので不要です。

        '上のWindowsAPIを呼び出す
        Sleep (1000)                '時間はミリセコンド単位で設定

    ElseIf Mode = False Then

        MsgBox "タイマーオフ" 'これは本来余分なので不要です。

    End If

End Sub

（４）次にタイマーのオンオフをテストするマクロを追加してください。
やはり同じ標準モジュールに記述します。
オンにするときはModeという変数をTrueにします。オフ時はModeをFalseにします。
確認は直接オンまたはオフのマクロを実行してみてください。
それぞれメッセージが出るだけの簡単なサンプルです。

（注意）mTimerは高機能のクラスモジュールみたいなもので、
Timer1.Enabled=FalseとかTimer1.Interval=1000のように設定できますが、
このサンプルでは、そのようにやっても動きません。
オフにするときは Call TimerSW(Flase)、
オンにするときは Call TimerSW(True)のようにします。


'タイマーをオンにするテスト
Sub Test_ON()
    Dim Mode As Boolean

    Mode = True

    'タイマーを呼び出す（オン）
    Call TimerSW(Mode)

End Sub

'タイマーをオフにするテスト
Sub Test_OFF()
    Dim Mode As Boolean

    Mode = False

    'タイマーを呼び出す（オフ）
    Call TimerSW(Mode)

End Sub


うまくいけばいいですが・・・ 		 

(無題)

 投稿者：ミヨチャン  投稿日：2008年 9月17日(水)05時56分2秒 		返信・引用
  DIY(金ラベル)5.3.3Excel2003の場合リスト5-3、リスト5-4で

Private Sub UserForm_Click()

UserFoem1.Show

End Sub


Private Sub CommandButton1_Click()
Dim rcnt As Long, dcnt As Long, lasttime As String
Dim buf As String, filename As String, pcnt As Long

  Call JVLink1.JVInit("UNKNOWN")
  Call JVOpen( _
       "RACE", "20040701000000", 1, rcnt, dcnt, lasttime)
  Call JVLink1.JVRead(buf, 60000, filename)
  Call JVLink1.JVClose

  Debug.Print CStr(rcnt), lasttime, buf


End Sub

Private Sub ProgressBar1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
  Timer1.Enabled = False
  Timer1.Interval = 5000
  Call JVLink1.JVInit("UNKNOWN")
End Sub

と記述するとコンパイルエラーと表示され、subまたはFunctionが定義されていません。
となります。
又、タイマーは、Microsoftのプログレスバーを選択しました。もっともこれの記述方法がわからないため、プロパティウィンドウで5000に指定しました。
宜しくご指導下さいます様、お願い申し上げます。 		 

mtimer

 投稿者：ミヨチャン  投稿日：2008年 9月17日(水)03時24分28秒 		返信・引用
  じゃばさん、回答ありがとうございました。
mtimerを使用しない方法は、理解できました。
そこで、どうしてもタイマーを使いたければ、そして、VISTA+Excel2003・2004で作成できなければ、
Visual Basic2005 Exprss Editionのタイマーを使用することは可能ではないかと
考えていますが、
Visual Basic言語であればプログラム可能なのではと、淡い期待をしますがいかがでしょうか？ 		 
以上は、新着順51番目から60番目までの記事です。 2  3  4  5  6  7  8  9  10  11  |  《前のページ |  次のページ》 
／25 


[PR]