エクセルの学校：全文検索：Hyper Estraier：簡易リストボックス

Results of 1 - 1 of about 222 for 簡易リストボックス (0.005 sec.)

[[20200717152034]]: #score: 11117; @digest: 3e5ecc9eeab674fa798aa5e0e56f8be0; @id: 84514; @mdate: 2020-07-17T12:52:32Z; @size: 2559; @type: text/plain; #keywords: 務・ (14963), 務部 (13831), 得2 (13351), 総務 (13212), 暇取 (13160), 属・ (9974), 部シ (9830), 基デ (8456), 績3 (8401), 知基 (7748), ま総 (7323), 後総 (7323), 査収 (5684), 用後 (5492), 名所 (5208), 休暇 (3618), xlpasteall (2830), タ作 (2667), タ-- (2222), 行指 (2170), operation (2034), ・1 (2010), skipblanks (2005), 所属 (1686), 通知 (1491), ・4 (1486), cutcopymode (1434), タ. (1374), selection (1335), へデ (1292), ・・ (1212), ・3 (1202); 『行の表示』（よし）
基データ -------------------------- A B C D ・・ 1 休暇取得 2 実績 3 No 氏名所属・・・・・ 4 01 ○○ 総務・・・・・・ ----------------------------- VBA使用後 -------------------------- A B C D ・・ 1 休暇取得 2 01 ○○ 総務・・・・・ 3 4 ・ ----------------------------- となってしまします。式を貼りますので、ご査収くださいますようよろしくお願いいたします。 Sub Creat1() ' ' Creat1 Macro ' 総務部データを作成 ' Windows("通知基データ.xlsm").Activate Sheets("DB").Select ' A列の値の貼り付け Columns("B:AH").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ' 総務部のみを抽出し、各シートに貼り付け Selection.AutoFilter Field:=3, Criteria1:="総務部*" 'オートフィルタで"総務部"で始まるを抽出 Cells.Select Selection.Copy Sheets("総務部").Select '各シートに貼り付け Cells.Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("DB").Select ActiveSheet.AutoFilterMode = False Sheets("menu").Select Range("E9").Select ActiveCell.FormulaR1C1 = "=+NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("E9").Select End Sub ＜使用 Excel:Office365、使用 OS:Windows7 ＞ ---- 最初の値と書式のまま総務部シートへデータ作成したのですがよろしくお願いします（よし） 2020/07/17(金) 15:58 ---- 基データ A B C D ・・ 1 休暇取得 2 実績 3 No 氏名所属・・・・・ 4 01 ○○ 総務・・・・・・ VBA使用後総務部シート A B C D ・・ 1 休暇取得 2 01 ○○ 総務・・・・・ 3 4 ・となってしまします。最初の値と書式のまま総務部シートへデータ作成したのですが教えて下さい。よろしくお願いします（よし） 2020/07/17(金) 16:10 ---- >式を貼りますので式とは言いません。コードと言います。（きき） 2020/07/17(金) 18:29 ---- 行指定なしで列全体を選択してフィルタをかけているので、 C列が「総務*」でない2〜3行目もフィルタでふるい落とされています。見たところ自動記録マクロのようなので、そのあたりを工夫して記録し直してみてはいかがでしょうか。（はらぺこ） 2020/07/17(金) 21:52 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200717152034.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ