Excel VBA質問箱 IV

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

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


27797 / 76736 ←次へ | 前へ→

【54256】Re:転記元シートの値とユーザーフォームで取得の値を、転記先シートに転記するには
発言  かみちゃん  - 08/3/2(日) 15:29 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>さきほど、私が提示したマクロを試してみましたか?
>ご提示いただいたマクロは実施しました。

であれば、そういうことしたいのではないでしょうか?
BeforeDouleClickイベント内の変数Targetが、標準モジュールでは、
ActiveCellなどになっていることがおわかりになりませんでしたか?

>そもそも「BeforeDouleClickイベントと同等のことをどのように実行するべきな
>のか」が判断できません。

そうですね。まったく、別ものですから。

> シートモジュールでできることであっても標準モジュールではできない(むずか
> しい)ということはあるのですね?

できないとか、難しいではなく、別ものかと思います。

>100%同等でなくても、たとえばスタートボタンで開始してもよいです。

スタートボタンで開始するときに、セル位置はどこにあるのでしょうか?
たとえば、以下のようなマクロを実行するとどうなりますか?

Sub Sample()
 Dim Cnm As String
 Dim Pnm As String
 Dim Mnm As String
 Dim Tnm As String
' Dim ws1 As Worksheet
' Dim i As Long
 
' If Not Application.Intersect(Range("B3:B100"), Target) Is Nothing Then
'  With Target
  With ActiveCell
   Cnm = .Offset(, -1).Value
   Pnm = .Offset(0, 0).Value
   Mnm = .Offset(, 3).Value
   Tnm = .Offset(, 5).Value
  End With
  Set ws1 = Worksheets("history")
  For i = 5 To ws1.Range("B65535").End(xlDown).Row
   If IsEmpty(ws1.Cells(i, 2).Value) Then
    ws1.Cells(i, 2).Value = Cnm
    ws1.Cells(i, 3).Value = Pnm
    ws1.Cells(i, 4).Value = Mnm
    ws1.Cells(i, 9).Value = Tnm
    
    UserForm1.Show
       
    Exit For
   End If
  Next i
'  Cancel = True
' End If
End Sub

0 hits

【54250】転記元シートの値とユーザーフォームで取得の値を、転記先シートに転記する... にしもり 08/3/2(日) 14:19 質問
【54251】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 14:23 発言
【54252】Re:転記元シートの値とユーザーフォームで... にしもり 08/3/2(日) 14:57 質問
【54254】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 15:05 発言
【54255】Re:転記元シートの値とユーザーフォームで... にしもり 08/3/2(日) 15:15 質問
【54256】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 15:29 発言
【54257】Re:転記元シートの値とユーザーフォームで... にしもり 08/3/2(日) 15:42 質問
【54258】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 15:51 発言
【54259】Re:転記元シートの値とユーザーフォームで... にしもり 08/3/2(日) 16:09 質問
【54261】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 16:16 発言
【54263】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 16:26 発言
【54265】Re:転記元シートの値とユーザーフォームで... にしもり 08/3/2(日) 16:38 お礼
【54267】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 16:50 発言
【54269】Re:転記元シートの値とユーザーフォームで... にしもり 08/3/2(日) 17:18 質問
【54271】Re:転記元シートの値とユーザーフォームで... かみちゃん 08/3/2(日) 17:25 発言
【54273】Re:転記元シートの値とユーザーフォームで... にしもり 08/3/2(日) 17:31 お礼

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