Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4765 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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の場合、間に空白が２つあると１つしか削除されない様です。

以上、宜しくお願いいたします。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4765 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free