Skip to content

Instantly share code, notes, and snippets.

@ten9miq

ten9miq/gist:9b5c550f17d9a06e015e9a35c8bdfd69

Last active June 24, 2024 07:57
Show Gist options
  • Save ten9miq/9b5c550f17d9a06e015e9a35c8bdfd69 to your computer and use it in GitHub Desktop.
Save ten9miq/9b5c550f17d9a06e015e9a35c8bdfd69 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
Sub SendHttpPost()
Dim xmlHttp As Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
Dim url As String
url = "ここに送信先のURLを入力" ' 送信先のURL
Dim postData As String
postData = "ここに送信するデータを入力" ' 送信するデータ
xmlHttp.Open "POST", url, False
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.send postData
Dim response As String
response = xmlHttp.responseText
MsgBox response ' レスポンスをメッセージボックスで表示
' ブラウザでページを開く
Dim shell As Object
Set shell = CreateObject("WScript.Shell")
shell.Run url
End Sub
@ten9miq
Copy link
Author

ten9miq commented Mar 29, 2024

=IFERROR(INDEX($A$2:$A$10, SMALL(IF(ISNUMBER(SEARCH($A$2:$A$10, $B$1)), MATCH(ROW($A$2:$A$10), ROW($A$2:$A$10)), ""), ROW(1:1))), "")

@ten9miq
Copy link
Author

ten9miq commented Jun 24, 2024

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1, " ", "%20"), "!", "%21"), """", "%22"), "#", "%23"), "$", "%24"), "%", "%25"), "&", "%26"), "'", "%27"),
"(", "%28"), ")", "%29"), "*", "%2A"), "+", "%2B"), ",", "%2C"), "/", "%2F"), ":", "%3A"), ";", "%3B"), "<", "%3C"),
"=", "%3D"), ">", "%3E"), "?", "%3F"), "@", "%40"), "[", "%5B"), "", "%5C"), "]", "%5D"), "_", "%5F"), "~", "%7E"),
CHAR(10), "%0A"), CHAR(13), "%0A")

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment