LX Terminalで下のコマンド打ったら一発でした!

 

sudo dhclient eth0

 

ちなみに有線LAN接続です。

 

無線の場合は下のコマンドらしい。

sudo dhclient wlan0

Sub 選択セルの行全体を選択する()
  If TypeName(Selection) <> "Range" Then Exit Sub
  Selection.EntireRow.Select


End Sub

Sub 選択セルの列全体を選択する()
  If TypeName(Selection) <> "Range" Then Exit Sub
  Selection.EntireColumn.Select

End Sub

Private Sub CommandButton1_Click()
  
  ' セルA1を選択する
  Range("A1").Select
  
  ' 選択したセル(A1)をコピーする
  Selection.Copy
  
  ' 切り取る場合は以下
  'Selection.Cut
  
  '現在のコピーモードを出力する
  Select Case Application.CutCopyMode
  Case Is = False
     MsgBox ("コピーモードでも切り取りモードでもない")
  Case Is = XlCutCopyMode.xlCopy
     MsgBox ("コピーモード")
  Case Is = XlCutCopyMode.xlCut
     MsgBox ("切り取りモード")
  End Select
  
  ' セルA2を選択する
  Range("A2").Select
 
  ' 現在選択しているセル(A2)に、コピー(切り取り)したセル(A1)の内容を貼り付ける
  ActiveSheet.Paste
  
  ' クリップボードにコピーされたセルの内容を削除する
  Application.CutCopyMode = False
  
End Sub
 

Sub Book2へコピー()
    If TypeName(Selection) <> "Range" Then Exit Sub
  Selection.EntireRow.Select
    
    Selection.Copy
     
    Windows("Book2.xlsx").Activate
    
    Rows("3:3").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
    
    Application.CutCopyMode = False
End Sub