疑問学園　万が一　学部

2025年6月18日水曜日

Windowsでコマンドラインからポート443をファイアウォールで開放する方法

netsh advfirewall firewall add rule name="Allow TCP 443" dir=in action=allow protocol=TCP localport=443

このコマンドは：

ルール名：Allow TCP 443

通信方向：受信 (in)

アクション：許可 (allow)

プロトコル：TCP

ポート：443

を許可します。

netsh で 443ポート開放ルールの確認方法

netsh advfirewall firewall show rule name=all | findstr "443"

2025年5月8日木曜日

DISM イメージ復元に関するコマンドの記録

Hyper-V Mount CMD

wpeutil InitializeNetwork

:netlink

net use n: \\172.23.176.1\Hyper-V inter2012 /USER:inter

if %errorlevel% gtr 1(

goto netlink

)

net time \\172.23.176.1 /set /y

diskpart /s n:\CreatePartitions-UEFI.txt

dism /Apply-Image /ImageFile:n:\Win11Hyper-v.wim /Index:1 /ApplyDir:W:

W:\Windows\System32\bcdboot W:\Windows /s S:

start ms-cxh:localonly

rem UUID（ユニバーサリー・ユニーク・アイデンティファイア）

wmic csproduct get UUID

rem SID（セキュリティ・アイデンティファイア）

whoami /user

2025年4月26日土曜日

ms-cxh:localonly コマンド

start ms-cxh:localonly

windows11 ローカルカウント作成してWindowsを利用する方法です．

2024年3月25日月曜日

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Debug.Print "Worksheet_SelectionChange(Byval Target As Range)"
Dim returnLine As Integer
Dim sline As Integer
Dim eline As Integer
Dim lastXup As Long
sline = 3
eline = 4
'日付の入力
If Cells(Target.Row, 3) <> "" Then
dbCheck Target
Else
'Cells(Target.Row, 7) = ""
End If
'カーソルの移動
If Target.Column > eline - 1 Then
Cells(Target.Row + 1, sline).Activate
End If
If ActiveCell.Value = "" Then
lastXup = Cells(Rows.Count, 3).End(xlUp).Row
Cells(lastXup + 1, sline).Activate
End If
End Sub

Excel VBA セル内容の読み上げ

Public Function spk(ByVal Target As Range)
On Error GoTo Myerror
If Not IsError(Target.Value) And TypeName(Target.Value) <> "Variant()" And Target.Value <> "" Then
Dim arr() As String
Dim i As Long
Dim leng As Long
leng = Len(Target.Value)
ReDim arr(leng - 1)
For i = 0 To leng - 1
arr(i) = Mid(Target.Value, i + 1, 1)
Next i
For Each x In arr
Select Case Asc(x)
Dim sv As String
Case 47 To 58
sv = "数字の "
Case 64 To 91
sv = "大文字の "
Case 96 To 123
sv = "小文字の "
End Select
Application.Speech.Speak sv & x, "True"
Next x
End If
Myerror:
Debug.Print "Myerror"
End Function