Offset()使う
Sub Sample1() Dim FoundCell As Range Set FoundCell = Range("A:A").Find("田中") If Not FoundCell Is Nothing Then MsgBox FoundCell.Offset(0, 1) End If End Sub
Offset()使う
Sub Sample1() Dim FoundCell As Range Set FoundCell = Range("A:A").Find("田中") If Not FoundCell Is Nothing Then MsgBox FoundCell.Offset(0, 1) End If End Sub
Sub Sample2() Dim FoundCell As Range ''またはバリアント型(Variant)とする Set FoundCell = Range("A1").CurrentRegion.Find(What:="土屋") If FoundCell Is Nothing Then MsgBox "検索に失敗しました" Else FoundCell.Select End If End Sub
数字+英字ならVal()を使うと数字部分だけ取れる
Sub Sample1() MsgBox Val("123ABC") End Sub
英字+数字ならひっくり返してから数字部分だけとり、Replaceで数字部分だけ消しちゃう
dim moji moji = "ABC123" MdgBox Replace(moji, StrReverse(Val(StrReverse(moji))), "")
なんとBIOS設定(UEFI)からいじらないといけない
windows10から
設定>更新とセキュリティ>回復>PCの起動をカスタマイズする の「今すぐ再起動」をクリック
オプションメニューが開くのでトラブルシューティング>詳細オプション>UEFI ファームウェア設定を選択
BIOS のメニューになるので「Configuration」タブを選択し、「Hotkey Mode」を選択して「Disabled(無効)」にします。
yyyymmdd 形式の文字列を DateTime に変換
var dt = System.DateTime.ParseExact("20171231", "yyyyMMdd", null);
ほかにもいろんなパターンで指定可能
DateTime utc_input = System.DateTime.UtcNow; TimeZoneInfo jstZoneInfo = System.TimeZoneInfo.FindSystemTimeZoneById("Tokyo Standard Time"); DateTime jst = System.TimeZoneInfo.ConvertTimeFromUtc(utc_input, jstZoneInfo);
アップロードしてから、画面固まったようになるけど、暫く待つと変換されたファイルのダウンロードできるようになるよ
"-z"オプションで日付指定する
curl -R -z '20200402' http://cyberjapandata.gsi.go.jp/xyz/std/8/215/110.png -o test.png
ちなみに日付は
VAL='date "+%Y%m%d"'
で取れる
#include <windows.h> #include <tchar.h> #import <shdocvw.dll> #import <mshtml.tlb> int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow) { HRESULT hr = ::CoInitialize(NULL); //COMを使うときのお約束 if (FAILED(hr)) { return -1; } NewIE(); //新しいIEを開く HWND hwnd = ::FindWindow(NULL, _T("Google - Microsoft Internet Explorer")); if (hwnd != NULL) { SHDocVw::IWebBrowser2Ptr pIE = FindIE(hwnd); //WebBrowserを取得する GoogleSearch(pIE); //Googleに入力してみる } else { ::OutputDebugString(_T("not found Google window\n")); } EventTest(); //WebBrowserのイベントを捕捉してみる ::CoUninitialize(); //COM使用終了 return 0; } void NewIE() { SHDocVw::IWebBrowser2Ptr pIE; //IEの起動 HRESULT hr = pIE.CreateInstance(__uuidof(SHDocVw::InternetExplorer)); // HRESULT hr = pIE.CreateInstance(_T("InternetExplorer.Application")); if(FAILED(hr)){ TCHAR str[256]; wsprintf(str, _T("NewIE#CreateInstance error:%x\n"), hr); ::OutputDebugString(str); return; } //IEの表示 pIE->PutVisible(VARIANT_TRUE); pIE->Navigate(_T("http://www.ne.jp/asahi/hishidama/home/tech/vcpp/index.html")); while (pIE->Busy == TRUE || pIE->GetReadyState() < READYSTATE_COMPLETE) { Sleep(100); } }