お世話になります。
Excelの数式についてお教えください。
do ～ loop の式を使うものですが、
A B C
1 80
2 90
3 85
4
B列に Activecell.Fomurla = ・・・という式を入れ、
A列が空白になるまでループさせたいと思うのですが、この際の
do と loopの使い方をお教えください。
宜しくお願いします。
詰まってしまったので質問させていただきます。
登録番号の空き番号を求めることが出来るクエリを使い空いている番号を埋めたいと思います。
個人Ｔ…テーブル。空き番号をもつ"登録番号"フィールドと空き番号がない綺麗な"連番"フィールドを持つ
ZZZZ空き番号抽出クエリ…"登録番号"の空き番号を昇順で並べた"仮想ID"がある
Private Sub Sample6()
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Variant
Dim J As Variant
Set Db = CurrentDb
Set rs = Db.OpenRecordset("個人Ｔ")
J = Right(DMax("連番", "個人Ｔ"), 4)
i = 0
While i < J
rs.AddNew
i = DMin("仮想ID", "ZZZZ空き番号抽出クエリ")
→→ rs(登録番号) = "ZZZZ" & i
rs.Update
rs.MoveNext
Wend
End Sub
これで実行すると「このコレクションには項目がありません。」
と「rs(登録番号) = "ZZZZ" & i」がエラーになってしまいます。
書き方自体が悪いのはものすごく分かるのですが・・・
どこを直したら正常に空き番号を埋めることができるでしょうか？
詰まってしまったので質問させていただきます。
登録番号の空き番号を求めることが出来るクエリを使い空いている番号を埋めたいと思います。
個人Ｔ…テーブル。空き番号をもつ"登録番号"フィールドと空き番号がない綺麗な"連番"フィールドを持つ
ZZZZ空き番号抽出クエリ…"登録番号"の空き番号を昇順で並べた"仮想ID"がある
Private Sub Sample6()
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Variant
Dim J As Variant
Set Db = CurrentDb
Set rs = Db.OpenRecordset("個人Ｔ")
J = Right(DMax("連番", "個人Ｔ"), 4)
i = 0
While i < J
rs.AddNew
i = DMin("仮想ID", "ZZZZ空き番号抽出クエリ")
→→ rs(登録番号) = "ZZZZ" & i
rs.Update
rs.MoveNext
Wend
End Sub
これで実行すると「このコレクションには項目がありません。」
と「rs(登録番号) = "ZZZZ" & i」がエラーになってしまいます。
書き方自体が悪いのはものすごく分かるのですが・・・
どこを直したら正常に空き番号を埋めることができるでしょうか？
初の質問になりますが、よろしくお願いします。
現在、VB2008にて、DataGridViewに入力した内容を、Insertで登録処理をするという作業を行っているのですが、変わった現象が起きてしまうのです。
まず、ボタンクリックのイベントで、DataGridViewの内容を一行づつ取り込み、Insertのループを行うと言うものなのですが、
DataGridViewにある列は、'日付','出勤時間',退社時間','～～と続くのですが、日付だけしか一行づつ取り込めず、それ以外の列項目は、値の入っている列までしか取り込めないんです。
たとえば、二行目まで値を入れ、三行目からはすべてのCellをNullの状態にしてＩｎｓｅｒｔのループをかけると、二行目にしか入らない値が、三行目以降まで続いてしまうんです。これってどういうことでしょうか、、、ちなみに日付だけはきちんとInsertされるのです。どなたかお分かりになる方いらっしゃらないでしょうか。
ちなみにこれがソースです。
For r As DataGridViewRow in DataGridView1.Rows
日付 = DataGridView1(0, r.Index).Value
If IsDBNull (DataGridView1(9, r.Index).Value) = False Then
出勤時間 = DataGridView1(9, r.Index).Value
Else If IsDBNull(DataGridView1(5. r.Index).Value) = False Then
出勤時間 = "0"
End If
'列が多いので、省略します。
'ここからInsert
sql = "Insert into Time Seet"
sql &= "Values ("
sql &= "'" & 日付 & "'"
:
:
Next r
という形です。列が長いので、だいぶ省略しましたので伝わりにくいかと思いますが、よろしくお願いします。
ちなみに他のサイトでは、
ループの外側でパラメータクエリを作成して、ループの中ではパラメータの設定とSQLの実行のみにすればよいです。
と言われましたが、パラメータクエリというのがイマイチ理解できなかったので・・・
できればそれらに関する情報や考え方なども教えてくださるとうれしいのですが・・・よろしくお願いします。
初の質問になりますが、よろしくお願いします。
現在、VB2008にて、DataGridViewに入力した内容を、Insertで登録処理をするという作業を行っているのですが、変わった現象が起きてしまうのです。
まず、ボタンクリックのイベントで、DataGridViewの内容を一行づつ取り込み、Insertのループを行うと言うものなのですが、
DataGridViewにある列は、'日付','出勤時間',退社時間','～～と続くのですが、日付だけしか一行づつ取り込めず、それ以外の列項目は、値の入っている列までしか取り込めないんです。
たとえば、二行目まで値を入れ、三行目からはすべてのCellをNullの状態にしてＩｎｓｅｒｔのループをかけると、二行目にしか入らない値が、三行目以降まで続いてしまうんです。これってどういうことでしょうか、、、ちなみに日付だけはきちんとInsertされるのです。どなたかお分かりになる方いらっしゃらないでしょうか。
ちなみにこれがソースです。
For r As DataGridViewRow in DataGridView1.Rows
日付 = DataGridView1(0, r.Index).Value
If IsDBNull (DataGridView1(9, r.Index).Value) = False Then
出勤時間 = DataGridView1(9, r.Index).Value
Else If IsDBNull(DataGridView1(5. r.Index).Value) = False Then
出勤時間 = "0"
End If
'列が多いので、省略します。
'ここからInsert
sql = "Insert into Time Seet"
sql &= "Values ("
sql &= "'" & 日付 & "'"
:
:
Next r
という形です。列が長いので、だいぶ省略しましたので伝わりにくいかと思いますが、よろしくお願いします。
ちなみに他のサイトでは、
ループの外側でパラメータクエリを作成して、ループの中ではパラメータの設定とSQLの実行のみにすればよいです。
と言われましたが、パラメータクエリというのがイマイチ理解できなかったので・・・
できればそれらに関する情報や考え方なども教えてくださるとうれしいのですが・・・よろしくお願いします。
下記は、wordの「@一覧表」文字の部分をExcelで作成した表(B3:E9)に置き換えるEXCEL2007で作成したマクロですが、EXCEL2000で動かすと「メソッドまたはデータメンバーが見つかりません」のエラーが出ます。初心者につき、対処方法を教えて下さい。
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim wordRange As Word.Range
Set wordApp = New Word.Application
Set wordDoc = wordApp.Documents.Open(ThisWorkbook.Path & "\ひな型用ドキュメント.docx")
(途中略)
Set wordRange = wordDoc.Content
wordRange.Find.Execute "@一覧表", Forward:=True
Range("B3:E9").Copy
wordRange.PasteAndFormat (Word.wdPasteDefault) ←エラー
*エラーは、wdPasteDefaultで出ます。
