●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

688:デフォルトの名無しさん
07/08/23 00:06:25
いつもお世話になります、１点質問を失礼します。無理やり上司から頼まれましたが、自分には無理難題です。
①もし○○○○の後7文字全てが半角英数字だったら、このセルの5文字目～半角スペースに当たるまでをコピー、「α」とする
例
○○○○0120123456 ○
↓
α=0120123456

○○○○の後７文字に１文字でも全角文字が入っていたら、○○○○の一つ下の行の先頭から半角スペースに当たるまでを全てコピー「α」、さらに２つ下の行の先頭から「か」という文字に当たるまでをコピー、さらに○○○○から先の文字全てを繋げ「β」とする

○○○○あい12うえおあい
0120789123 ○○
Aか
↓
α=0123789123
β=Aあい12うえおあい

できればifでやりたいんですが、
Dim α As String, β As String
Dim r(1) as range '○○○○の行がr(1)とします

If Mid(r(1).Value, 5, 7) = 全部半角英数字　Then 　α=Mid(r(1).Value, 5)から" "まで

Else　α=r(1).Offset(1).の先頭から半角スペースに当たるまで全て
　　　β=r(1).Offset(2).の先頭から「か」に当たるまでをコピー＆Mid(r(1).Value, 5, 99)

End　if

すいません、自分ifの文に弱いものでかなり違うかもしれませんが、こんなマクロにしたいのです。宣言とかの理論は理解してます。お手数ですが、よろしくお願いします。

次ページ

続きを表示

1を表示