Excel VBA セルカーソルの移動

 Excel VBA セルカーソルの移動

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 セル内容の読み上げ

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

Thunderbolt 有効にするためにDiscrete_Thunderbolt(TM)_Support をEnabledにしてください

ASUS マザーボードの場合

Advanced→Thunderbolt(TM)Configuration → Discrete Thunderbolt(TM)Support

MSI マザーボードの場合

Settings→Advanced→Intel(R) Thunderbolt→ Discrete Thunderbolt(TM)Support

BIOSTAR マザーボードの場合

Advanced→Thunderbolt(TM)Configuration →Discrete_Thunderbolt(TM)_Support

Discrete Thunderbolt(TM)Support 項目を有効にしなくても
Thunderbolt コントロールセンターを繋がれたThunderboltデバイス
に表示されますが、接続の状態では未接続のままになる、機能はしません。

未接続

接続済み

承認の仕様は変更されたようです、Windows11では承認の必要ないデバイスが
そのままで承認されます、承認の画面が出ません。Windows10では全ての接続は
認証必要のようです。

END

Windows11オフラインインストール BypassNRO.cmd の中身

Windows11オフラインインストール BypassNRO.cmd の中身
BypassNRO.cmd はWindows11インストールメディアに付属したものです．

Windows11ネットワーク接続せずに、オフラインインストールができます、

簡単な手順

1． インストールの途中でネットワークを接続する画面まで、
      Shift⁺F10 コマンドプロンプトを開く

2． ¥oobe¥BypassNRO.cmd を実行します

3． PCが再起動されます、起動後に
     「インターネットに接続していません」 → 「制限された設定で続行」
      順にクリックするとインストールが続きます

BypassNRO.cmd の中身はレジストリの追加にとなります．

**ネットワーク接続画面前に，reg add 手動でレジストリを追加する場合，
再起動しないで済む

END

Windows11インストール方法はChatGPTに聞いてみた

 Windows 11はまだリリースされていません。最新のWindowsオペレーティングシステムはWindows 10です。Windows 10をインストールする方法を示します。

Windows11のリリースは2021年10月5日となりますが、この回答に見るとChatGPT
の情報は最新ではない、次に質問したときに10と11入れ替えだだけに見えます。

END

Above 4G Decoding を Disabled に設定する場合

 Above 4G Decoding を Disabled に設定する場合

下記も無効にしてください。

1.  BIOSのAdvanced → Thunderbolt(TM) Configuration → Discrete Thunderbolt(TM) Support をDisabled

2.  Resize Bar supportをDisabled

に設定後に Above 4G Decoding をDisabledに設定する．

END

ネットワーク切れたときに警告音

ネットワークがよく切れる、切れたときに警告音を発生するように

import ping3

import winsound

while True:

    val = ping3.ping('8.8.8.8')

    if val == None or val == False:

        print("warning")

        winsound.Beep(2000, 500)

        winsound.Beep(5000, 500)

    print(val)

コード変更

# pip install pygame

import socket

import pygame

HOST = 'www.google.com'

PORT = 80

BUFFER_SIZE = 1024

pygame.mixer.init()

alarm_sound = pygame.mixer.Sound('alarm.wav')

while True:

    try:

        s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)

        s.connect((HOST, PORT))

        s.sendall(b'GET / HTTP/1.1\r\n\r\n')

        data = s.recv(BUFFER_SIZE)

        s.close()

        pygame.time.wait(5000)  #

    except:

        alarm_sound.play()

        pygame.time.wait(5000)  #

end