{"id":1885,"date":"2023-03-08T22:50:44","date_gmt":"2023-03-08T13:50:44","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1885"},"modified":"2023-12-05T22:11:05","modified_gmt":"2023-12-05T13:11:05","slug":"userform-saizennmenn-kotei01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/userform-saizennmenn-kotei01","title":{"rendered":"\u2605ExcelVBA \uff5e \u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3060\u3051\u306e\u8868\u793a\u306b\u3057\u3066\u3001\u4ed6\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u3082\u6700\u524d\u9762\u306b\u56fa\u5b9a\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"

\u2605ExcelVBA \uff5e \u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3060\u3051\u306e\u8868\u793a\u306b\u3057\u3066\u3001\u4ed6\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u3082\u6700\u524d\u9762\u306b\u56fa\u5b9a\u3059\u308b\u65b9\u6cd5
\n\u3000\u3000<\/SPAN>
\n\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n

\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3060\u3051\u306e\u8868\u793a\u306b\u3057\u3066\u6700\u524d\u9762\u306b\u56fa\u5b9a\u3059\u308b\u65b9\u6cd5<\/p>\n

\"\"<\/a><\/p>\n

\u25cf (01)Sheet1\u300c\u306bActiveX\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3068\u3057\u3066\u300d\u306e\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u3092\u4f5c\u6210
\n\u203b\u9593\u9055\u3063\u305f\u3001\u300c\u30d5\u30a9\u30fc\u30e0\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3068\u3057\u3066\u300d\u306e\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u3092\u4f5c\u3089\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002
\n\uff08\u307b\u3093\u3068\u306f\u3069\u3063\u3061\u3067\u3082\u3044\u3044\u306e\u3067\u3059\u304c\u3001\u3068\u308a\u3042\u3048\u305a\u3002\uff09<\/p>\n

\u540d\u524d\u306f\u3044\u3058\u3089\u305a\u3002
\n\u3064\u307e\u308a\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u306f\u300cCommandButton1\u300d\u306e\u307e\u307e\u3002
\n\u30dc\u30bf\u30f3\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u306eCaption\u3092\u300cCommandButton1\u300d\u304b\u3089\u300c\u30d5\u30a9\u30fc\u30e0\u3092\u958b\u304f\u300d\u306b\u5909\u66f4\u3059\u308b\u3002<\/p>\n

\u305d\u306e\u30dc\u30bf\u30f3\u306e\u30b3\u30fc\u30c9\u306f\u4ee5\u4e0b\u3002<\/p>\n

\r\n'\r\n'\r\nPrivate Sub CommandButton1_Click()\r\n\r\n    UserForm1.Show\r\n\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u25cf (02)\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3092\u4f5c\u6210\u3057\u3066\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u3092\uff12\u3064\u4f5c\u6210\u3002<\/p>\n
\u65b0\u898f\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3092\u4f5c\u6210\u3057\u3066\u3001\u305d\u3053\u306b\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u3092\uff12\u3064\u4f5c\u6210\u3057\u307e\u3059\u3002<\/p>\n
1\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u306f
\n\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u306f\u300cCommandButton1\u300d\u306e\u307e\u307e\u306b\u3057\u307e\u3059\u3002
\nCaption\u306f\u300c\u3053\u306e\u30d5\u30a9\u30fc\u30e0\u3092\u9589\u3058\u308b\u300d\u306b\u5909\u66f4\u3057\u307e\u3059\u3002<\/p>\n
2\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u306f\u3001
\n\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u3092\u300cCommandButton2\u300d\u306b\u5909\u66f4\u3002
\nCaption\u3092\u300cExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u300d\u306b\u3002<\/p>\n
\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u4ee5\u964d\u306e\u30b3\u30fc\u30c9\u305f\u3061\u3092\u5358\u7d14\u306b\u5168\u90e8\u30b3\u30d4\u30da\u3002<\/p>\n
\u4e00\u5fdc\u5ff5\u306e\u305f\u3081\u306b\u3001
\n\u30c7\u30b6\u30a4\u30f3\u753b\u9762\u3067\u305d\u308c\u305e\u308c\u306e\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u3092\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3057\u3066\u3001
\n\u30b3\u30fc\u30c9\u304c\u300c\u3061\u3083\u3093\u3068\u30dc\u30bf\u30f3\u3068\u7d10\u4ed8\u3051\u72b6\u614b\u306b\u3042\u308b\u304b\uff1f\u300d\u3060\u3051\u78ba\u8a8d\u3057\u307e\u3059\u3002
\n\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3057\u3066\u305d\u308c\u305e\u308c\u306e\u30b3\u30fc\u30c9\u304c\u898b\u3048\u305f\u3089\u7d10\u4ed8\u3051\u3055\u308c\u3066\u307e\u3059\u3002<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n#If VBA7 And Win64 Then\r\n\r\nPrivate Declare PtrSafe Function _\r\nSetWindowPos Lib \"user32\" _\r\n(ByVal hwnd As LongPtr, _\r\nByVal hWndInsertAfter As LongPtr, _\r\nByVal x As Long, ByVal y As Long, _\r\nByVal cx As Long, ByVal cy As Long, _\r\nByVal wFlags As Long) As Long\r\n\r\nPrivate Declare PtrSafe Function _\r\nFindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n(ByVal lpClassName As String, _\r\nByVal lpWindowName As String) As LongPtr\r\n\r\n#Else\r\nPrivate Declare Function FindWindow Lib \"user32.dll\" _\r\nAlias \"FindWindowA\" _\r\n(ByVal lpClassName As String, _\r\nByVal lpWindowName As String) As Long\r\n\r\nPrivate Declare Function SetWindowPos Lib \"user32\" _\r\n(ByVal hwnd As Long, _\r\nByVal hWndInsertAfter As Long, _\r\nByVal x As Long, ByVal y As Long, _\r\nByVal cx As Long, ByVal cy As Long, _\r\nByVal wFlags As Long) As Long\r\n#End If\r\n\r\nPrivate Const HWND_TOPMOST As Long = -1\r\nPrivate Const SWP_NOSIZE As Long = &H1&\r\nPrivate Const SWP_NOMOVE As Long = &H2&\r\nPrivate URL As String\r\nPrivate IE As Object\r\nPrivate OBJ As Object\r\n\r\nPrivate Sub CommandButton1_Click()\r\n    Application.Visible = True\r\n    Unload Me\r\nEnd Sub\r\n\r\nPrivate Sub CommandButton2_Click()\r\n    \r\n    Set o_OtherApp = CreateObject(\"Excel.Application\")\r\n    o_OtherApp.Visible = True\r\n    \r\n    o_OtherApp.Workbooks.Open \"D:\\1\\test7890.xlsm\"\r\n    \r\n\r\nEnd Sub\r\n\r\n\r\nPrivate Sub UserForm_Activate()\r\n    Dim hwnd As LongPtr\r\n    hwnd = FindWindow(vbNullString, Me.Caption)\r\n    Call SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\nEnd Sub\r\n\r\n\r\nPrivate Sub UserForm_Initialize()\r\n    Application.Visible = False\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u25cf (03)\u300cPrivate Sub CommandButton2_Click()\u300d\u306e\u5185\u5bb9\u5909\u66f4\u3002<\/p>\n
o_OtherApp.Workbooks.Open \"D:\\1\\test7890.xlsm\"<\/p>\n
\u306e\u30b3\u30fc\u30c9\u306e<\/p>\n
\"D:\\1\\test7890.xlsm\"<\/p>\n
\u3092\u3001\u81ea\u5206\u304c\u958b\u304d\u305f\u3044\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u306b\u66f8\u304d\u63db\u3048\u307e\u3059\u3002<\/p>\n
\u5c06\u6765\u7684\u306b\u306f\u3001\u30c0\u30a4\u30a2\u30ed\u30b0\u30dc\u30c3\u30af\u30b9\u3084\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u3067\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3059\u308b\u5f62\u306b\u5909\u3048\u308c\u3070\u3044\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
\u306a\u304a\u3001\u672c\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u3001\u3053\u306e\u30dc\u30bf\u30f3\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304b\u306a\u3044\u3068\u30c0\u30e1\u3067\u3059\u3002
\n\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3067\u76f4\u63a5\u4ed6\u306eExccel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u3057\u307e\u3046\u3068\u3001
\n\u8cea\u554f\u8005\u3055\u307e\u304c\u8a00\u3046\u3068\u3053\u308d\u306e\u3001\u300c\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306eThisWorkbook\u300d\u304c\u8868\u793a\u3055\u308c\u3066\u3057\u307e\u3044\u307e\u3059\u306e\u3067\u3002<\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u25cf (04)\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f5c\u6210\u3057\u3066\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30da<\/p>\n
\u4ee5\u4e0b\u306e\uff12\u884c\u3060\u3051\u3067\u3044\u3044\u3067\u3059\u3002<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\nPublic o_OtherApp As Excel.Application\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n
\u3072\u3068\u307e\u305a\u4ee5\u4e0a\u3067\u3001\u4f5c\u6210\u5b8c\u4e86\u3067\u3059\u3002<\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u25cf \u4f7f\u3044\u65b9<\/p>\n
\u3044\u3063\u305f\u3093\u30d5\u30a1\u30a4\u30eb\u3092\u4e0a\u66f8\u304d\u3057\u3066\u9589\u3058\u3066\u3001\u518d\u5ea6\u958b\u3044\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
Sheet1\u306e\u300c\u30d5\u30a9\u30fc\u30e0\u3092\u958b\u304f\u300d\u3092\u62bc\u3057\u307e\u3059\u3002
\n\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u304c\u300c\u6700\u524d\u9762\u3067\u56fa\u5b9a\u300d\u3067\u958b\u304d\u307e\u3059\u3002<\/p>\n
\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u300cExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u300d\u3067Excel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304d\u307e\u3059\u3002<\/p>\n
\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u304c\u5e38\u306b\u6700\u524d\u9762\u306b\u56fa\u5b9a\u3055\u308c\u3066\u3001\u5f8c\u3067\u958b\u3044\u305fExcel\u30d5\u30a1\u30a4\u30eb\u3092\u7de8\u96c6\u3067\u304d\u307e\u3059\u3002<\/p>\n
\u9589\u3058\u308b\u3068\u304d\u306f\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u3002<\/p>\n
\u5f8c\u3067\u958b\u3044\u305fExcel\u30d5\u30a1\u30a4\u30eb\u306f\u666e\u901a\u306b\u9589\u3058\u3066\u3044\u3044\u3067\u3059\u304c\u3001
\n\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u30d6\u30c3\u30af\u306f\u5fc5\u305a\u300c\u3053\u306e\u30d5\u30a9\u30fc\u30e0\u3092\u9589\u3058\u308b\u300d\u3092\u62bc\u3057\u3066
\nThisWorkbook\u306e\u8868\u3092\u3057\u3066\u304b\u3089\u666e\u901a\u306b\u9589\u3058\u307e\u3059\u3002
\n\u3067\u306a\u3044\u3068\u3001\u30ed\u30c3\u30af\u304c\u304b\u304b\u3063\u305f\u307e\u307e\u304a\u304b\u3057\u306a\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605ExcelVBA \uff5e \u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3060\u3051\u306e\u8868\u793a\u306b\u3057\u3066\u3001\u4ed6\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u3082\u6700\u524d\u9762\u306b\u56fa\u5b9a\u3059\u308b\u65b9\u6cd5 \u3000\u3000 \u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1885"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1885"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1885\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1885"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1885"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}