VB 2008 でキーボードから入力される文字を受け取る関数の作成は可能でしょうか？
Module Main
Sub Main()
Dim nc As Long
nc = 0
While FileSeek("D:\Temp\Test.txt", nc + 1) <> ""
nc = nc + 1
End While
Debug.Print(nc)
End Sub
End Module
△ While FileSeek("D:\Temp\Test.txt", nc + 1) <> ""
○ While GetChar() <> ""
もちろん、GetCharってのはありますので同じ名前では無理。
でも、こういう関数を欲している訳です。
OKWaveに助けられて FileSeek()ってのを作成しました。
が、これはファイルから１文字づつ読む関数。
欲している関数とは違います。
VB 2008Expressをダウンロードし某テキストの例題を初めから演習しています。
なにせ、プログラマでもないのに初めての言語ということで悪戦苦闘です。
そして、今、僅かに３題目。
宜しくお願いします。
なお、コンソールではなくWindowsアプリケーションで演習中です。
VB 2008 でキーボードから入力される文字を受け取る関数の作成は可能でしょうか？
Module Main
Sub Main()
Dim nc As Long
nc = 0
While FileSeek("D:\Temp\Test.txt", nc + 1) <> ""
nc = nc + 1
End While
Debug.Print(nc)
End Sub
End Module
△ While FileSeek("D:\Temp\Test.txt", nc + 1) <> ""
○ While GetChar() <> ""
もちろん、GetCharってのはありますので同じ名前では無理。
でも、こういう関数を欲している訳です。
OKWaveに助けられて FileSeek()ってのを作成しました。
が、これはファイルから１文字づつ読む関数。
欲している関数とは違います。
VB 2008Expressをダウンロードし某テキストの例題を初めから演習しています。
なにせ、プログラマでもないのに初めての言語ということで悪戦苦闘です。
そして、今、僅かに３題目。
宜しくお願いします。
なお、コンソールではなくWindowsアプリケーションで演習中です。
２３歳男性です。
visual studio 2005で開発してます。
ふと思ったんですけど、メソッドに数値を渡して、その数値によってデータ型の違うデータを取得できたら便利かなーと思いました。
************************************************************
私が考えたコード
************************************************************
■メソッド
DataGet(1)
■メソッド側処理
public function DataGet(byval num as integer) as ×××
select case num
case 1:「日付型」データ
case 2:「数値型」データ
case 3:「文字型」データ
end select
return データ
end function
************************************************************
上記のコードはあくまで想像です。
でも実際、このようなことはできるのでしょうか？
ご存知の方がいらっしゃいましたらご教授願います。
Sub a()
Dim i As Long
Dim s As Long
Dim b As Worksheet
Dim c As Worksheet
Dim maxi As Long
Dim maxs As Long
Application.ScreenUpdating = False
With ThisWorkbook
Set b = .Worksheets("bbb")
Set c = .Worksheets("ccc")
End With
maxi = b.Range("A1").CurrentRegion.Rows.Count
maxs = c.Range("A1").CurrentRegion.Rows.Count
For i = maxi To 2 Step -1
For s = maxs To 2 Step -1
If c.Cells(s, 1) = b.Cells(i, 1) And c.Cells(s, 2) = b.Cells(i, 2) Then
c.Cells(s, 14) = b.Cells(i, 3)
End If
Next s
Next i
Application.ScreenUpdating = True
End Sub
ワークシートcとワークシートbの1列目と2列目が一致したときにだけ、cの14列目にbの3列目のデータを代入したく思い、以上のようなコードを書きましたが、重くて終わる様子がありません。
・そもそもあっているのか、あっていないならどこを修正すればよいか
・早く終わるようにするにはどうしたらいいか
アドバイスをよろしくお願いします。
VBAで入力チェッカーを作っているのですが、仕様の部分でなやんでいます。
Private Sub CommandButton1_Click()
Dim i As Long
lastRow = Range("A65536").End(xlUp).Row
For i = 10 To lastRow
If Range("A" & i).Value = "" Then
Range("A" & i).Value = ???
Exit For
End If
Next i
End Sub
USERがあるセルにデータを入力するとA列に５行ごと自動に値が入ります。
しかし、入力忘れで５行飛ばしたりはたまた１０行空白が出来る場合があります。
その際のチェッカーの役割なのですが。。。
したから行を見ていってA１０～最終行までの間でどこか空白があったら下から空白を探し空白箇所から5個上のセルの値を基本的にコピーをしていれる。
もし5個上のセルにも無かったら10個上みたいにやりたいのですがどうしたらよいでしょうか？
いつも勉強させていただいています。
質問させていただきます。よろしくお願いします。
あるソフトのデータ保存を数分毎に行う必要がでてきたため、初めてVB2008で作成を試みました。SendKeysを知り、なんとか一連の保存作業（ソフトのツールバーのFile→SaveData→(ファイル名入力)→OK）を、自動化するところまでできたのですが、実行中にマウスポインタを動かしてしまうと正常に動作しなくなってしまうため、イベント中の５～10秒程度マウス操作を無効化したいのですが、やり方が見つかりません。
結構長い時間検索して試してみたのですが、
Cursor.Hide()
や
Private Sub Button1_MouseMove(・・・) Handles Button1.MouseMove
Dim p As Point = New Point(0, 0)
System.Windows.Forms.Cursor.Position = p
End Sub
のような都度ポインタを端に飛ばすような方法では、いくらでもアクティブウィンドウを切り替えられてしまうためうまくいきませんでした。
上のような「マウスが動いたときに都度発生～」といったような監視方法ではメインのイベントが妨げられるようにも感じますので、何かマウス操作を規制・無効にするよい方法がありましたら教えていただければと思います。
もしお詳しい方がいらっしゃいましたら、どうぞよろしくお願いします。
