2024-07-01から1ヶ月間の記事一覧

VBA：ソート（上順並べ替え）

Sub sort2() Dim ws As Worksheet Dim lastRow As Long Dim col As Integer Dim rng As Range ' シートを指定（必要に応じて変更） Set ws = ThisWorkbook.Sheets(1) ' データの最終行を見つける lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 10…

■

calendar(html+css+js)

<html><head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width"> <title>Document</title> <style> #calendar { display: flex; flex-wrap: nowrap; overflow-x: auto; width: 100%; } section { margin: 10px; min-width: 300px; } h1 { font-size: 18px; } table { border-spa…</meta></meta></head></html>

calendar

<html><head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width"> <title>Document</title> <link rel="stylesheet" href="calendar.css"></head><body> <h1>Today is</h1> <div id="calendar"></div></body><script> const weeks = ['日', '月', '火', '水', '木', '金', '土']; const …</html>

表

Public Sub DataGridView_init2(ByVal list As DataGridView) '' DataGridViewのカラム数を設定 'DataGridView1.ColumnCount = 3 '' カラム名を設定 'DataGridView2.Columns(0).Name = "Column1" 'DataGridView2.Columns(1).Name = "Column2" 'DataGridView2…