Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6943 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42247】数字の分割の仕方 ぷりんちゃん 06/9/4(月) 22:22 質問[未読]
【42248】Re:数字の分割の仕方 かみちゃん 06/9/4(月) 22:26 回答[未読]
【42251】Re:数字の分割の仕方 ぷりんちゃん 06/9/4(月) 22:49 質問[未読]
【42252】Re:数字の分割の仕方 かみちゃん 06/9/4(月) 22:58 発言[未読]
【42253】Re:数字の分割の仕方 ぷりんちゃん 06/9/4(月) 23:06 お礼[未読]
【42247】数字の分割の仕方
質問  ぷりんちゃん  - 06/9/4(月) 22:22 -
引用なし
パスワード
   ９桁の数字があるとします。そのうち、最初の３桁と、真ん中の三桁と、最後の３桁を別のセルに取り出す関数を教えて下さい！分かりにくくてすみません。
例　　１２３４５６７８９　←この数字を右にあるセルに１２３・４５６・７８９と現したいのですが。
お願い致します！！
【42248】Re:数字の分割の仕方
回答  かみちゃん  - 06/9/4(月) 22:26 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>９桁の数字があるとします。そのうち、最初の３桁と、真ん中の三桁と、最後の３桁を別のセルに取り出す関数を教えて下さい！分かりにくくてすみません。
>例　　１２３４５６７８９　←この数字を右にあるセルに１２３・４５６・７８９と現したい

Mid関数を使います。詳しくは、ヘルプを確認してください。
Sub Macro1()
　MsgBox Mid("123456789", 1, 3)
　MsgBox Mid("123456789", 4, 3)
　MsgBox Mid("123456789", 7, 3)
End Sub
【42251】Re:数字の分割の仕方
質問  ぷりんちゃん  - 06/9/4(月) 22:49 -
引用なし
パスワード
   かみちゃんさん　ありがとうございました！
でも、もう一つ教えていただけませんでしょうか？

この関数を縦にコピーしたのですが、
ＭＩＤ（＄Ａ＄３）,１，３と言うふうに、
＄に変えてやってみたのですが、うまくいきません。

私は、マクロが分からないので、ＭＩＤ関数で
上の関数式でやったのですが、
これでは、ダメなのでしょうか？
【42252】Re:数字の分割の仕方
発言  かみちゃん  - 06/9/4(月) 22:58 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>この関数を縦にコピーしたのですが、
>ＭＩＤ（＄Ａ＄３）,１，３と言うふうに、
>＄に変えてやってみたのですが、うまくいきません。
>
>私は、マクロが分からないので、ＭＩＤ関数で
>上の関数式でやったのですが、

ちょっと待ってください。VBAではなく、一般関数の質問ですか？
ここは、VBAを専門に扱っている掲示板ですので、VBAを基本としてコメントしています。

一般関数でするならば、A3セルに分割前の値があるならば、
=MID($A$3,1,3)
=MID($A$3,4,3)
=MID($A$3,7,3)
でできます。
【42253】Re:数字の分割の仕方
お礼  ぷりんちゃん  - 06/9/4(月) 23:06 -
引用なし
パスワード
   かみちゃん さん
どうもありがとうございました。
やってみます！
ＶＢＡが何やら分からなくて、ここで質問してしまいました。
ごめんなさい！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6943 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free