Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4508 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56221】MID関数での質問 初心者 08/6/9(月) 11:42 質問[未読]
【56223】Re:MID関数での質問 Jaka 08/6/9(月) 12:49 発言[未読]
【56225】Re:MID関数での質問 初心者 08/6/9(月) 14:06 質問[未読]
【56226】Re:MID関数での質問 Jaka 08/6/9(月) 14:51 発言[未読]
【56238】Re:MID関数での質問 初心者 08/6/10(火) 18:30 お礼[未読]
【56221】MID関数での質問
質問  初心者  - 08/6/9(月) 11:42 -
引用なし
パスワード
   　ＭＩＤ関数で教えて下さい。
　台帳シートの内容を
　空白行を作成して、その箇所に
　ＭＩＤ関数で項目を編集して
　貼り付けています。
　
　明細は２行目からあるのですが
　貼り付けると、３行目の内容が
　２行目へ、４行目の内容が
　３行目へと張り付くのですが
　下の書き方で何かおかしいのか
　教えて下さい。
　
　お願いします。


　 i = 2
　　
　　Do While Cells(i, 2) <> ""
　　
　　Sheets("台帳").Select
　　Cells(i, 1).Select
　　
　　ActiveCell.FormulaR1C1 = "=MID(R[1]C[10],1,3)"
　　ActiveCell.FormulaR1C1 = "=MID(R[1]C[10],1,3)&MID(R[1]C[10],5,14)"
　　
　　Sheets("台帳").Select
　　Cells(i, 1).Select
　　
　　i = i + 1
　　
　　
　　Loop
　　
　　Columns("A:A").EntireColumn.AutoFit
【56223】Re:MID関数での質問
発言  Jaka  - 08/6/9(月) 12:49 -
引用なし
パスワード
   ▼初心者 さん：
>　明細は２行目からあるのですが
>　貼り付けると、３行目の内容が
>　２行目へ、４行目の内容が
>　３行目へと張り付くのですが
>　下の書き方で何かおかしいのか
>　教えて下さい。
おかしいもなにもコードの実行結果だけかいて
おかしいと言われても、何がおかしいのかわかりません。
そういった内容のコードだから、結果は合っているんじゃないですか、
としか言えません。
【56225】Re:MID関数での質問
質問  初心者  - 08/6/9(月) 14:06 -
引用なし
パスワード
   説明不足ですいませんでした。

処理したいシートには
２行目　　611-0800050691
３行目　　411-0800029636
４行目　　611-0800060482
５行目　　011-0700093425
６行目　　011-0800026559
とあり、それをＭＩＤ関数で編集していますが

結果
２行目　　4110800029636
３行目　　6110800060482
４行目　　0110700093425
５行目　　0110800026559

と表示されてもとの２行目の明細が
ないのですが・・
【56226】Re:MID関数での質問
発言  Jaka  - 08/6/9(月) 14:51 -
引用なし
パスワード
   どういうような結果にしたいのか、全く書いてないので、
良く解らないけど。

'ActiveCell.FormulaR1C1 = "=MID(RC[10],1,3)"　　←意味不明。
ActiveCell.FormulaR1C1 = "=MID(RC[10],1,3)&MID(RC[10],5,14)"

これでも良いんじゃない。（因みにマクロ記録したやつ）
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[10],""-"","""")"
【56238】Re:MID関数での質問
お礼  初心者  - 08/6/10(火) 18:30 -
引用なし
パスワード
   　今日解決しました。
　アドバイス助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4508 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free