＜分類：値抜き取り＞ ＜使用例：123.4567という小数点を含む値を整数部下2桁(23)と小数部上3桁(456)に分ける＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim rtn1 As String Dim rtn2 As String '123.4567 s = "123.4567" Call 部品_小数分離(s, rtn…

＜分類：値取得＞ ＜使用例：指定時間(15:04:00)を超えた次の行のＣ列の値を取得する＞ ＜注意：サンプルデータを作成するプログラムになっていますので、Sheet1は何もデータがないシートをご用意ください＞ ＜プログラム例＞ A B C 1 2018/11/18 15:00:00 1…

＜分類：判定＞ ＜使用例：比較元の日付(2018/11/10)と時間(23:59:59)、比較先の日付(2018/11/11)と時間(00:00:00)をセットして、時間が比較元より大きいので大と判定する＞ ＜例外：比較元の日付と時間、比較先に日付と時間が同じだった場合は、小にしてい…