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

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

イベントとフォーム講座演習第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

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声をもっと見る

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ