レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

イベントとフォーム講座演習

イベントとフォーム講座演習第2回

受講生さんの投稿

(投稿ID: 1013)

質問です。よろしくお願いします。
TextBox内で入力時にカーソルの位置が表示されなくて困ってます。
この動画の2分くらいのところで、"鳥取慎太郎”のデータをいじっているときに点滅しているやつです。

ちなみにexcelは2010でwindows7 Service Pack1です。

追伸
フラグ制御もわかりました。
スタック領域不足になって、データ壊れてみたいなことを
やってたので、制御なしの危険さも良くわかりました。

2015/01/12 02:06

ゲストさんのコメント

(コメントID: 2157)

匿名さん:

ソースみないとわからないですね。
あと、PC再起動してもうまくいきませんでしょうか。

>フラグ制御もわかりました。
>スタック領域不足になって、データ壊れてみたいなことを

制御棒なしで原発運転するようなものですね。

>質問です。よろしくお願いします。
>TextBox内で入力時にカーソルの位置が表示されなくて困ってます。
>この動画の2分くらいのところで、"鳥取慎太郎”のデータをいじっているときに点滅しているやつです。
>
>ちなみにexcelは2010でwindows7 Service Pack1です。
>
>追伸
>フラグ制御もわかりました。
>スタック領域不足になって、データ壊れてみたいなことを
>やってたので、制御なしの危険さも良くわかりました。

2015/01/12 07:04

受講生さんのコメント

(コメントID: 2160)

お世話になります。

>ソースみないとわからないですね。
>あと、PC再起動してもうまくいきませんでしょうか。

ソース以下のとおりです。
PC再起動はやってみましたが効果なかったです。

Option Explicit
Private Sub cmdKoushin_Click()
    Dim c As Long
    c = scbScb.Value
    If IsEmpty(Range("A" & c).Value) Then
        Range("A" & c).Value = WorksheetFunction.Max(Range("A1:A" & c)) + 1
    End If
    
    Range("B" & c).Value = txtShimei.Value
    Range("D" & c).Value = txtTodoufuken.Value
    If opbMan.Value = True Then
        Range("C" & c).Value = "男性"
    End If
    If opbWoman.Value = True Then
        Range("C" & c).Value = "女性"
    End If
    
    If cbA.Value = True Then
        Range("E" & c).Value = True
    Else
        Range("E" & c).Value = False
    End If
    If cbB.Value = True Then
        Range("F" & c).Value = True
    Else
        Range("F" & c).Value = False
    End If
    If cbC.Value = True Then
        Range("G" & c).Value = True
    Else
        Range("G" & c).Value = False
    End If
    If cbD.Value = True Then
        Range("H" & c).Value = True
    Else
        Range("H" & c).Value = False
    End If
    
    Range("I" & c).Value = txtBiokou.Value
    
End Sub

Private Sub cmdNew_Click()
    Dim c As Long
    Dim rMax As Long
    Dim mID As Long
    rMax = Range("A" & Rows.Count).End(xlUp).Row '最大列
    mID = WorksheetFunction.Max(Range("A1:A" & rMax)) + 1  'ID
    c = rMax + 1

    scbScb.Max = c
    scbScb.Value = c
    txtID.Value = mID
    
    
    txtShimei.Value = Range("B" & c).Value
    txtTodoufuken.Value = Range("D" & c).Value
    
    opbMan.Value = False
    opbWoman.Value = False
    
    cbA.Value = False
    cbB.Value = False
    cbC.Value = False
    cbD.Value = False
   
    txtBiokou.Value = Range("I" & c).Value


End Sub


Private Sub scbScb_Change()
    Dim c As Long
    c = scbScb.Value
    txtID.Value = Range("A" & c).Value
    txtShimei.Value = Range("B" & c).Value
    txtTodoufuken.Value = Range("D" & c).Value
    
    If Range("C" & c) = "男性" Then
        opbMan.Value = True
    End If
    If Range("C" & c) = "女性" Then
        opbWoman.Value = True
    End If
    
    If Range("E" & c) = True Then
        cbA.Value = True
    End If
    If Range("F" & c) = True Then
        cbB.Value = True
    End If
    If Range("G" & c) = True Then
        cbC.Value = True
    End If
    If Range("H" & c) = True Then
        cbD.Value = True
    End If
    
    txtBiokou.Value = Range("I" & c).Value
    txtBiokou.SetFocus
End Sub

Private Sub UserForm_Initialize()

    scbScb.Min = 2
    scbScb.Max = Range("A" & Rows.Count).End(xlUp).Row
    scbScb.Value = 2
    
End Sub

2015/01/12 23:42

ゲストさんのコメント

(コメントID: 2161)

匿名さん:

二度手間でもうしわけありません。ファイル送っていただけますか。
あと、再現方法は、 TextBox にフォーカスを移動させるだけですね。

すいません。よろしくお願いいたします。

>お世話になります。
>
>>ソースみないとわからないですね。
>>あと、PC再起動してもうまくいきませんでしょうか。
>
>ソース以下のとおりです。
>PC再起動はやってみましたが効果なかったです。
>
>

>Option Explicit
>Private Sub cmdKoushin_Click()
>    Dim c As Long
>    c = scbScb.Value
>    If IsEmpty(Range("A" & c).Value) Then
>        Range("A" & c).Value = WorksheetFunction.Max(Range("A1:A" & c)) + 1
>    End If
>    
>    Range("B" & c).Value = txtShimei.Value
>    Range("D" & c).Value = txtTodoufuken.Value
>    If opbMan.Value = True Then
>        Range("C" & c).Value = "男性"
>    End If
>    If opbWoman.Value = True Then
>        Range("C" & c).Value = "女性"
>    End If
>    
>    If cbA.Value = True Then
>        Range("E" & c).Value = True
>    Else
>        Range("E" & c).Value = False
>    End If
>    If cbB.Value = True Then
>        Range("F" & c).Value = True
>    Else
>        Range("F" & c).Value = False
>    End If
>    If cbC.Value = True Then
>        Range("G" & c).Value = True
>    Else
>        Range("G" & c).Value = False
>    End If
>    If cbD.Value = True Then
>        Range("H" & c).Value = True
>    Else
>        Range("H" & c).Value = False
>    End If
>    
>    Range("I" & c).Value = txtBiokou.Value
>    
>End Sub
>
>Private Sub cmdNew_Click()
>    Dim c As Long
>    Dim rMax As Long
>    Dim mID As Long
>    rMax = Range("A" & Rows.Count).End(xlUp).Row '最大列
>    mID = WorksheetFunction.Max(Range("A1:A" & rMax)) + 1  'ID
>    c = rMax + 1
>
>    scbScb.Max = c
>    scbScb.Value = c
>    txtID.Value = mID
>    
>    
>    txtShimei.Value = Range("B" & c).Value
>    txtTodoufuken.Value = Range("D" & c).Value
>    
>    opbMan.Value = False
>    opbWoman.Value = False
>    
>    cbA.Value = False
>    cbB.Value = False
>    cbC.Value = False
>    cbD.Value = False
>   
>    txtBiokou.Value = Range("I" & c).Value
>
>
>End Sub
>
>
>Private Sub scbScb_Change()
>    Dim c As Long
>    c = scbScb.Value
>    txtID.Value = Range("A" & c).Value
>    txtShimei.Value = Range("B" & c).Value
>    txtTodoufuken.Value = Range("D" & c).Value
>    
>    If Range("C" & c) = "男性" Then
>        opbMan.Value = True
>    End If
>    If Range("C" & c) = "女性" Then
>        opbWoman.Value = True
>    End If
>    
>    If Range("E" & c) = True Then
>        cbA.Value = True
>    End If
>    If Range("F" & c) = True Then
>        cbB.Value = True
>    End If
>    If Range("G" & c) = True Then
>        cbC.Value = True
>    End If
>    If Range("H" & c) = True Then
>        cbD.Value = True
>    End If
>    
>    txtBiokou.Value = Range("I" & c).Value
>    txtBiokou.SetFocus
>End Sub
>
>Private Sub UserForm_Initialize()
>
>    scbScb.Min = 2
>    scbScb.Max = Range("A" & Rows.Count).End(xlUp).Row
>    scbScb.Value = 2
>    
>End Sub
>
>

2015/01/13 11:59

受講生さんのコメント

(コメントID: 2169)

お世話になります。
seminar@exvb.com
のアドレスにデータをお送りしました。
お手数ですがよろしくお願いいたします。

>匿名さん:
>
>二度手間でもうしわけありません。ファイル送っていただけますか。
>あと、再現方法は、 TextBox にフォーカスを移動させるだけですね。
>
>すいません。よろしくお願いいたします。
>
>

2015/01/14 09:15

ゲストさんのコメント

(コメントID: 2172)

匿名さん:

ファイル送付ありがとうございました。
別メールで動画にてお伝えしたとおりでした。再現方法について何かあれば、お知らせください。

>お世話になります。
>seminar@exvb.com
>のアドレスにデータをお送りしました。
>お手数ですがよろしくお願いいたします。
>
>>匿名さん:
>>
>>二度手間でもうしわけありません。ファイル送っていただけますか。
>>あと、再現方法は、 TextBox にフォーカスを移動させるだけですね。
>>
>>すいません。よろしくお願いいたします。
>>
>>
>

2015/01/15 21:25