Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150305131839]]
- #score: 9211
- @digest: 5a837ca7ef53a7a77d77756f0c41973a
- @id: 67415
- @mdate: 2015-03-05T05:29:38Z
- @size: 2320
- @type: text/plain
- #keywords: wcellval (97381), 力エ (6920), ★↑ (6633), 存20 (6466), 角チ (6198), vbokonly (4676), 規") (3997), ・消 (3116), 力チ (2746), vbexclamation (2708), vbwide (2666), ー" (2607), strconv (2368), res (2162), 以内 (2001), 字以 (1883), （kk (1380), 全角 (1179), 一シ (1037), 改行 (924), 用ア (842), リ: (836), 品名 (800), は50 (769), 商品 (720), 駄目 (699), チェ (696), target (650), ェッ (630), 角で (596), replace (579), vblf (520)
- 『改行のあるセル内容の全角チェック』（kk）
文字入力チェックのコードを書いております。 セルの内容に変更があった場合に、50文字以内か、全角になっているかを チェックしたいのですが、改行がある場合に上手くチェックできません。 Private Sub Worksheet_Change(ByVal Target As Range) Dim wCellVal As String Dim ws1 As Worksheet Set ws1 = Worksheets("新規") wCellVal = Replace(ws1.Cells(Target.Row, Target.Column), vbLf, "") ★↑ここで改行が消されてるはずなのですが・・・消えてないみたいです 'D列のチェック If Target.Column = 4 Then If Len(wCellVal) > 50 Then MsgBox "商品名は50文字以内で入力してください。", vbOKOnly + vbExclamation, "入力エラー" Exit Sub End If 'If Len(wCellVal) * 2 <> LenB(StrConv(wCellVal, vbFromUnicode)) Then ★↑これで駄目だったので↓でしてみましたが駄目でした If wCellVal = StrConv(wCellVal, vbWide) Then MsgBox "商品名は全角で入力してください。", vbOKOnly + vbExclamation, "入力エラー" Exit Sub End If End If ＜ 使用 アプリ:2003形式で保存 2013、2003で使用しています、使用 OS:Windows8 ＞ ---- 処理をしているシートと「新規」シートの関係はどのようなものでしょうか? 同一シートであるなら、 Private Sub Worksheet_Change(ByVal Target As Range) Dim wCellVal As String Dim res For Each t In Target If t.Column = 4 Then res = "" wCellVal = Replace(t.Value, vbLf, "") If Len(wCellVal) > 50 Then res = "商品名は50文字以内で入力してください。" End If If wCellVal <> StrConv(wCellVal, vbWide) Then res = res & IIf(res <> "", vbNewLine, "") & "商品名は全角で入力してください。" End If End If If res <> "" Then MsgBox res, vbOKOnly + vbExclamation, "入力エラー" Exit Sub End If Next End Sub ということでしょうか。 （Mook） 2015/03/05(木) 13:54 ---- Mookさんありがとうございます。 wCellVal <> StrConv(wCellVal, vbWide) のところの = と ＜＞ のミスだったみたいですね。 また、コードの整理ありがとうございます。活用させて頂きます。 こういう細かい所のデバッグができないようじゃまだまだですね((+_+)) （kk） 2015/03/05(木) 14:29... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150305131839.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608268 words.
訪問者：