Excel VBA質問箱 IV

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

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


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

【5307】並べ替えについて さる 03/5/6(火) 11:16 質問
【5311】Re:並べ替えについて つん 03/5/6(火) 15:09 回答
【5335】Re:並べ替えについて さる 03/5/7(水) 11:38 お礼

【5307】並べ替えについて
質問  さる E-MAIL  - 03/5/6(火) 11:16 -

引用なし
パスワード
   お久しぶりにお世話になります。

userformからsheetのF列に時間を入れ、新しく時間を入れるごとに、並べ替えをしています。(時間の早い順に)

userformから入れる時間には、9:00〜、10:00〜のように、時間のあとに”〜”がついているので、同じsheetのL列に作業列を作りたいのですが、うまくいきません。

userformからF列に時間を入れるコードは、
AddRow=Range("A4").CurrentRegion.Rows.Count+4
Cells(AddRow,6).Value=時間

"時間"はlistbox_Clickで入れます。

L列の作業列のコードは、
Cells(AddRow,12).Value="=value(left(cells(addrow,6).search("〜",cells(addrow,6),1)-1))"
でいけると思ったのですが、デバックすると、構文エラーになります。

どなたかご教授お願いします。

【5311】Re:並べ替えについて
回答  つん E-MAIL  - 03/5/6(火) 15:09 -

引用なし
パスワード
   さる さん、こんにちは

>userformからsheetのF列に時間を入れ、新しく時間を入れるごとに、並べ替えをしています。(時間の早い順に)
>
>userformから入れる時間には、9:00〜、10:00〜のように、時間のあとに”〜”がついているので、同じsheetのL列に作業列を作りたいのですが、うまくいきません。
>
>userformからF列に時間を入れるコードは、
>AddRow=Range("A4").CurrentRegion.Rows.Count+4
>Cells(AddRow,6).Value=時間
>
>"時間"はlistbox_Clickで入れます。
>
>L列の作業列のコードは、
>Cells(AddRow,12).Value="=value(left(cells(addrow,6).search("〜",cells(addrow,6),1)-1))"
>でいけると思ったのですが、デバックすると、構文エラーになります。
>
>どなたかご教授お願いします。

えっと、つまり時間の「9:00〜」から、「〜」を省いた値を取得したいってことでしょうか?
やったら、こんなんではどうでしょうか?

Cells(AddRow,12).Value = Left(Cells(addrow,6).Value, (InStr(Cells(addrow,6).Value, "〜")) - 1)

【5335】Re:並べ替えについて
お礼  さる E-MAIL  - 03/5/7(水) 11:38 -

引用なし
パスワード
   つん さん、こんにちは

分かりにくい質問に対して的確なお答えありがとうございます。
バッチリできました。

また機会がありましたら、ご指導宜しくお願いします。

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