Excel VBA質問箱 IV

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

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


75852 / 76732 ←次へ | 前へ→

【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)

0 hits

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

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