Excel VBA質問箱 IV

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

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


4751 / 13644 ツリー ←次へ | 前へ→

【54692】空白文字削除 なまちゃん 08/3/26(水) 13:18 発言[未読]
【54694】Re:空白文字削除 VBWASURETA 08/3/26(水) 13:22 発言[未読]
【54695】Re:空白文字削除 なまちゃん 08/3/26(水) 13:30 回答[未読]
【54697】Re:空白文字削除 VBWASURETA 08/3/26(水) 13:56 回答[未読]
【54698】Re:空白文字削除 なまちゃん 08/3/26(水) 14:04 質問[未読]
【54699】Re:空白文字削除 VBWASURETA 08/3/26(水) 14:19 質問[未読]
【54700】Re:空白文字削除 VBWASURETA 08/3/26(水) 14:26 発言[未読]

【54692】空白文字削除
発言  なまちゃん  - 08/3/26(水) 13:18 -

引用なし
パスワード
   すみません。教えて下さい。

もしセルの社員名が5文字以上の時、全空白を削除したい。

If rs.Field("社員名漢字") >= "5" Then
      syainmei01 = Replace(Cells(leng1, 3).Text, "文字", "")

どうしたら良いでしょうか?

以上、宜しくお願いいたします。

【54694】Re:空白文字削除
発言  VBWASURETA  - 08/3/26(水) 13:22 -

引用なし
パスワード
   ▼なまちゃん さん:

こんにちは。

空白消すTrim関数ってご存知ですか?
わからないのでしたら、この掲示板で「Trim」と検索してみてください。

【54695】Re:空白文字削除
回答  なまちゃん  - 08/3/26(水) 13:30 -

引用なし
パスワード
   ありがとうございます。
しかし、投稿する前に、いろいろ調べたのですが、Trimの場合、間に空白が2つあると1つしか削除されない様です。

以上、宜しくお願いいたします。

【54697】Re:空白文字削除
回答  VBWASURETA  - 08/3/26(水) 13:56 -

引用なし
パスワード
   見ていて思ったんですが、
最初の質問で置換関数(Replace)のこと書いてますよね?

Msgbox Replace("aa a"," ","")

という感じで置換で出来ますよね?

要は置換で空白を空白無しに置き換えるという閃きが必要ですね。

【54698】Re:空白文字削除
質問  なまちゃん  - 08/3/26(水) 14:04 -

引用なし
パスワード
   皆様、ありがとうございます。

何度も申し訳ございませんが、

もしセルの社員名が5文字以上の時はどの様に指定したら宜しいでしょうか?

If rs.Field("社員名漢字") >= "5" Then
      
以上、宜しくお願いいたします。

【54699】Re:空白文字削除
質問  VBWASURETA  - 08/3/26(水) 14:19 -

引用なし
パスワード
   >もしセルの社員名が5文字以上の時はどの様に指定したら宜しいでしょうか?

それは全角半角関係なくですか?
OS、Excelのバージョンによって変わるので
ちょっとその部分を考慮する必要がありますよ。

簡単にはLEN関数ですが、OSとEXCELのバージョンで
返す値が変わります。

例えばWindows2000とWindowsXP等

【54700】Re:空白文字削除
発言  VBWASURETA  - 08/3/26(水) 14:26 -

引用なし
パスワード
   ▼なまちゃん さん:

一応ですが、Len関数についてこいうのがあります。

//support.microsoft.com/kb/935281/ja

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