2021-10-07から1日間の記事一覧

ボタンを増するんとわたし好きます　UP＝行より上　Yes

Option Explicit '新規ボタンPrivate Sub New_btn_Click() 'このブックの基本設定（出力先のシート名など） Call Standard_Set If CountRow >= LimitRow Then '入力データ数の上限超え MsgBox "最後の行に入力があります" Else Call FormInputShow_Function(…

治し方がおかしいよ

Option Explicit Dim Page_n As Integer 'ページ 'フォーム表示時Private Sub UserForm_Initialize() Page_n = 1 'ページ Label_Page.Caption = "ページ：" & CStr(Page_n) 'リストボックスの準備 Call ListBox_junbi End Sub '決定ボタンPrivate Sub btn_ke…

この方がいいね

'更新ボタンPrivate Sub update_btn_Click() Dim Row_n As Integer '編集対象行 'このブックの基本設定（出力先のシート名など） Call Standard_Set '更新対象行の選択 If ActiveCell.Row < StartRow Then 'フォーカスある行が最初の行より上 Row_n = StartR…