ど忘れ倉庫

Dim seki
Dim kyori
Dim tousu
Dim waku
Dim umataijyu

Dim b
Dim x1
Dim x2
Dim x3
Dim x4
Dim x5

Dim time

seki = 57
kyori = 2500
tousu = 16
waku = 1
umataijyu = 540

b = -3.41275388348363
x1 = -0.270996884
x2 = 0.059027608
x3 = 0.466900418
x4 = -0.035976977
x5 = 0.029446148

time = seki * x1 + kyori * x2 + tousu * x3 + waku * x4 + umataijyu * x5 + b
Cells(2, 7).Value = time


seki = 57
kyori = 2400
tousu = 17
waku = 2
umataijyu = 542

b = -3.41275388348363
x1 = -0.270996884
x2 = 0.059027608
x3 = 0.466900418
x4 = -0.035976977
x5 = 0.029446148

time = seki * x1 + kyori * x2 + tousu * x3 + waku * x4 + umataijyu * x5 + b
Cells(3, 7).Value = time

Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Sub CommandButton1_Click()

Const VK_PrintScrn = &H2C '[PrintScrn]指定


Const KEYEVENT_EXTENDED_KEY = &H1 'キー押す
Const KEYEVENT_UP = &H2 'キー放す

'[PrintScrn]　＋　キー押す
keybd_event VK_PrintScrn, 0, KEYEVENT_EXTENDED_KEY, 0
'[PrintScrn]　＋　キー放す
keybd_event VK_PrintScrn, 0, KEYEVENT_EXTENDED_KEY Or KEYEVENT_UP, 0

Application.Wait Now + TimeSerial(0, 0, 2) '2秒待つ


paint = Shell("Mspaint.exe", vbNormalFocus) 'ペイント起動

Application.Wait Now + TimeSerial(0, 0, 2) '2秒待つ

'[CONTROL]　キー押す
keybd_event vbKeyControl, 0, KEYEVENT_EXTENDED_KEY, 0
'[V]　　キー押す
keybd_event vbKeyV, 0, KEYEVENT_EXTENDED_KEY, 0
'[V]　　キー放す
keybd_event vbKeyV, 0, KEYEVENT_EXTENDED_KEY Or KEYEVENT_UP, 0
'[CONTROL]　キー放す
keybd_event vbKeyControl, 0, KEYEVENT_EXTENDED_KEY Or KEYEVENT_UP, 0




End Sub

Private Sub CommandButton1_Click()

paint = Shell("Mspaint.exe", vbNormalFocus)

End Sub

Dim aaa
Dim bbb
　 aaa = Cells(1, 1).Value
　 bbb = Replace(a, "芝", "")
　Cells(3, 1).Value = bbb

　Cells(3, 1).Value = Replace(Cells(1, 1).Value, "芝", "")

Private Sub CommandButton1_Click()

Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.google.co.jp/"

Set objIE = Nothing

End Sub