目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃一覧表示 ┃ ┃ ┃ ┃

1 / 14 ﾍﾟｰｼﾞ

【297】タナダグース激安

VOGCOPY.NET - 22/8/31(水) 18:48 -


	引用なし

	パスワード

カナダ・トロント発の老舗ダウンブランド〈Canada Goose（カナダグース）〉が、 vogcopy.net/brand-251-c0.html　カナダグースコピーシューズデザイナー界の革命児 Salehe Bembury（サレヘ・ベンバリー）とのコラボレーションにより、NBAの設立75周年を祝福する特別なカプセルコレクションを発表した。

〈Canada Goose〉は、NBAと複数年にわたるパートナーシップ契約を締結しており、www.ginzaweb.com/昨年3月には「NBAオールスター 2021」に合わせて〈RHUDE（ルード）〉を招聘したアウターコレクションをリリース。今回のコレクションも、NBA設立75周年および「NBAオールスター 2022」の開催を記念したもの。アイテムは1990年代のバスケットボールスタイルをベースに、Bemburyが再解釈を加えたExpedition Parka、Concord Fleece、Signal Vest、Tundra Bib Overallなどがラインアップする。オーバーサイズのシルエットが特徴のExpedition Parkaは、過酷な環境や悪天候にも対応する高スペックアウター。Bemburyのシグネチャーである指紋のデザインが目を引くConcord FleeceやSignal Vestは、他のアイテムとレイヤリング可能な仕様に。ミリタリーのライナージャケットが着想源のTundra Bib Overallは、たっぷりと中綿が備えられ、防寒性も抜群。全てのアイテムは自然からインスパイアされたアースカラーを基調とした絶妙な配色で統一されており、Bemburyの美学が反映されたコレクションとなっている。
vogcopy.net/tag.html　ブランドコピー激安
hlouisvuittonup.on.omisenomikata.jp/

・ツリー全体表示

【296】エラーになる原因

Jaka - 21/3/10(水) 22:02 -


	引用なし

	パスワード

Web上からコピーして、メモ帳に張り付けると所々半角スペースが、タブに変換されていたり、左に半角スペースが追加されて足りするので半角スペースに変えるか消してください。

・ツリー全体表示

【295】www.clubrand.com/pp-11-c0/

オフホワイト新作

- 19/8/26(月) 12:23 -


	引用なし

	パスワード

人気商品登場業界に比類のない高品質だけでなく、唯一無二があり
ヴァレンティノ VALENTINO コピーヴァレンティノコピー激安ヴァレンティノコピー新www.clubrand.com/pp-45-c0/
この中で貴方の好きな商品を選ぶことができます。ヴァレンティノコピー通販ヴァレンティノコピーレディースヴァレンティノバッグコピー
ヴァレンティノ靴コピーヴァレンティノパンプスコピーバレンチノスニーカーコピーwww.clubrand.com
ブルガリレディースバッグコピーjpshopkopi.com/kategori-472-b0.html ブルガリレディースバッグコピー

・ツリー全体表示

【294】fendi コピーKEE

fendi コピー - 19/8/21(水) 16:32 -


	引用なし

	パスワード

お買い得海外セレブ大人気ブランド限定ファションFENDIコピー半袖ｔシャツが登場します。これはアナトミカの標準として人気のあるポケットTシャツです。　www.keevoo.com/brand-344.html fendi コピー厚い生地にもかかわらず、それは柔らかくて快適です。脇の下は最大限の快適さのためにシームレスに設計されています。ブランドコピー golfcopy.com/9nkfqc/ パテックフィリップ Patek Philippe スーパーコピーブランド

・ツリー全体表示

【293】マクロ実行中の一時停止と再開

リスキーダック - 19/7/23(火) 13:24 -


	引用なし

	パスワード

ExcelQ&Aさろんに回答として載せたものですが、全く使いそうにないので、
ここに残しておけば、誰かしらの参考になるのでは？と思いまして・・・。

ただ、一時停止中の編集作業等には、あまり耐えられないと思います。
こういう動作は、ゲーム作成者の人の方が得意そうですが。

その１、

参考
「ExcelQ&Aさろん」のTopから、VBAアクションゲームの世留と仙人
ht　tp://www1.plala.or.jp/chikada/cell/0101/0101.htm

キーコード表など
ht　tps://excel-excel.com/tips/vba_305.html

Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

Sub aaa()
　Dim i As long
　For i = 1 To 20000
　　　Cells(i, 1).Select
　　　Cells(i,1).Value = i
　　　If GetAsyncKeyState(16) <> 0 Then 　　　　'Shiftキーで、一時停止
　　　　 Do
　　　　　　If GetAsyncKeyState(17) <> 0 Then　 'Ctrlキーで、再開
　　　　　　　 Exit Do
　　　　　　End If
　　　　　　DoEvents
　　　　 Loop
　　　End If
　Next
End sub

その２

標準モジュール

Public flg As Boolean

Sub aaa()
　Dim i As Long
　For i = 1 To 3
　　　For ii = 1 To 1000
　　　　　Cells(ii, i).Value = ii
　　　　　Cells(ii, i).Select
　　　Next
　　　UserForm1.Show 0
　　　Do
　　　　 DoEvents
　　　Loop Until flg = True
　Next
End Sub

ユーザーフォームを1つ作り一次停止中とか・・・。
ボタンを１つ、無くてもいいけど。

フォームモジュール

Private Sub UserForm_Initialize()
　 flg = False
End Sub

'閉じるボタン
Private Sub CommandButton1_Click()
　 Unload Me
End Sub

'フォームを閉じたら再開（右上のＸボタン含む）
Private Sub UserForm_Terminate()
　 flg = True
End Sub

・ツリー全体表示

【292】１つ、２つ上のフォルダ名取得

Jaka - 19/6/8(土) 18:04 -


	引用なし

	パスワード

ブックのある１つ上のフォルダ
MsgBox CreateObject("Scripting.FileSystemObject").GetParentFolderName(ThisWorkbook.Path)
MsgBox CreateObject("Scripting.FileSystemObject").Getfolder(ThisWorkbook.Path).ParentFolder
MsgBox CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(ThisWorkbook.Path & "\..")

ブックのある２つ上のフォルダ
MsgBox CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).ParentFolder.ParentFolder
MsgBox CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(ThisWorkbook.Path & "\..\..")

参考
ht　tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=36400;id=exce

・ツリー全体表示

【291】louis vuitton コピー

louis vuitton コピー - 18/4/9(月) 18:55 -


	引用なし

	パスワード

定番人気のミニサイズのlouis vuitton コピーwww.keevoo.com/brand-344.html コピーバッグが登場しました。長く愛着を持って使っていただけるように、上質なレザー素材を使用しました。柔らかく仕上げる為にオイルと共に揉み加工を施した風合いが絶妙で、使い込む程に特有のクタリ感など経年変化を楽しむことができるアイテム。ハンドル部分見れば、厚さが見えると思いますが。男女問わずユニセックスでお使い頂けますので、ご自身用はもちろん、プレゼントとしてもオススメ。ブランドレプリカ www.keevoo.com/

・ツリー全体表示

【290】前後で合否

さな - 18/3/22(木) 21:41 -


	引用なし

	パスワード

前後で合否を出す関数を教えて下さい。
たとえば「予定時間 10:00、この前後30分以内なら○、30分以上の差があるあるときは×」そういったの表示を出す方法あるでしょうか？
宜しくお願いします。

・ツリー全体表示

【289】セルの値に基づき図形を表示

もつもつ - 17/11/23(木) 22:21 -


	引用なし

	パスワード

あらかじめ図形を書き込み、クリックすることで図形の点線／実線切り替えを使っていますが、それを別シートの入力値に基づき動作させることはできるのでしょうか？
イメージ：シート１にカレンダーがあり指定日に休暇と入力すればシート２にある当該日に”休暇”という文言が入った図形を表示させる。シート１の休暇を消せば図形も消えるといったイメージです。シート２の当該日をクリックすれば動作させるということは今でもできますが、一発印刷ボタンなるものもシート１に配置させシート間の移動を無くしたいと考えています。ご教授願います。

・ツリー全体表示

【288】Re:二次元配列の合体

マナ - 17/9/3(日) 21:11 -


	引用なし

	パスワード

▼Jaka さん：

＞しょぼい。

そんなことないです。
わたしは大きなデータを使うことないので、全く問題なさそうです。
勉強になりました。

1000行×10列：＜0,1sec
10000行×10列：＜1sec
60000行×10列：＜4sec

1000行×26列：＜0,5sec
10000行×26列：＜4sec
60000行×26列：＜20sec

Sub test()
　　Dim TBL_1, TBL_2
　　
　　ActiveSheet.UsedRange.ClearContents
　　
　　TBL_1 = [row(a1:a100)*column(a1:z1)]
　　TBL_2 = [row(a1:a10000)&"_"&column(a1:z1)]
　　
　　MsgBox "２つの配列を合体します。"
　
　　Dim t As Double
　　t = Timer
　　
　　Dim tbb()
　　ReDim tbb(1 To UBound(TBL_1, 2))
　　Dim NewTB
　　Dim i As Long, 行 As Long, 列 As Long
　　　
　　For i = 1 To UBound(tbb)
　　　　tbb(i) = Split(Join(Application.Transpose(Application.Index(TBL_1, 0, i))) & " " & _
　　　　　　　　Join(Application.Transpose(Application.Index(TBL_2, 0, i))))
　　Next
　　
　　NewTB = Application.Transpose(tbb)
　　
　　MsgBox Timer - t
　　
　　行 = UBound(NewTB, 1)
　　列 = UBound(NewTB, 2)
　　 Cells(1).Resize(行, 列).Value = NewTB
　　
　　Erase TBL_1, TBL_2, tbb, NewTB

End Sub

・ツリー全体表示

【287】ちょい変更

Jaka - 17/9/1(金) 23:39 -


	引用なし

	パスワード

>　Dim tbb(1 To 4)
>　Dim NewTB()

　↓

Dim tbb()
Dim NewTB()
ReDim tbb(1 To UBound(TBL_1, 2))

・ツリー全体表示

【286】二次元配列の合体

Jaka - 17/9/1(金) 22:46 -


	引用なし

	パスワード

使用頻度はほとんど無いと思うけど、なんとなく勉強のために。
なんかやたら、メモリ喰いそうだし。
シートに貼り付けて合体させた方が速そう。

エクセル関数を使っているので要素数の上限問題が…。
Excel2000だと、Transposeできる配列の要素数は、5461個（1～5461）まで。
つまり、Excel2000だと２つの配列の総素数の合計が、5461個までしかまともに動かないと思う。

１０カラム（１０列）づつだったら、合計５４６行ぐらいか。
しょぼい。
見本（下記コードで作った）以外のデータでは試していません。

尚、メインのThinkpad A31（Win2000 & Excel2000)のバッテリーが逝かれて、
起動するとバイオス画面が出てくるようになったので、
下記コードは、Win7 & Excel2007 で書きました。

Sub 二次元配列合体()
　Dim TBL_1(1 To 4, 1 To 4)
　Dim TBL_2(1 To 3, 1 To 4)

　Range("A1:E20").Value = Empty

　'二次元配列に値を代入（ショボイデータ作成）
　TBL_1(1, 1) = 11: TBL_1(1, 2) = 12: TBL_1(1, 3) = 13: TBL_1(1, 4) = 14
　TBL_1(2, 1) = 21: TBL_1(2, 2) = 22: TBL_1(2, 3) = 23: TBL_1(2, 4) = 24
　TBL_1(3, 1) = 31: TBL_1(3, 2) = 32: TBL_1(3, 3) = 33: TBL_1(3, 4) = 34
　TBL_1(4, 1) = 41: TBL_1(4, 2) = 42: TBL_1(4, 3) = 43: TBL_1(4, 4) = 44
　Range("A1:D4").Value = TBL_1

　TBL_2(1, 1) = "A1": TBL_2(1, 2) = "B1": TBL_2(1, 3) = "C1": TBL_2(1, 4) = "D1"
　TBL_2(2, 1) = "A2": TBL_2(2, 2) = "B2": TBL_2(2, 3) = "C2": TBL_2(2, 4) = "D2"
　TBL_2(3, 1) = "A3": TBL_2(3, 2) = "B3": TBL_2(3, 3) = "C3": TBL_2(3, 4) = "D3"
　Range("A6:D8").Value = TBL_2

　MsgBox "シートに書いた２つの配列を合体します。"

　'列数分の配列を作り、二次元配列から１列づつ一次元配列に変換した配列を収めていく。
　'二次元配列から１列転記した場合、二次元配列になっていたので。

　Dim tbb(1 To 4)
　Dim NewTB()

　For i = 1 To UBound(tbb)
　　 tbb(i) = Split(Join(Application.Transpose(Application.Index(TBL_1, 0, i))) & " " & _
　　　　　　　　　　Join(Application.Transpose(Application.Index(TBL_2, 0, i))))
　Next

　NewTB = Application.Transpose(tbb)
　行 = UBound(NewTB, 1)
　列 = UBound(NewTB, 2)
　Range("A11").Resize(行, 列).Value = NewTB

　Erase TBL_1, TBL_2, tbb, NewTB
End Sub

・ツリー全体表示

【285】抽出先でデータ編集をして抽出元に反映させ...

ぴぐもん - 17/8/12(土) 19:07 -


	引用なし

	パスワード

”リスト”シートにはＡ１～Ｇ１が項目、Ａ２～Ｇ２からデータがあります。
”検索”シートに条件を入力し検索ボタンを入力すれば一致するデータが表示されます。Ａ１～Ｇ１項目、Ａ２～Ｇ２が検索条件、Ａ４～Ｇ４が結果表示用項目
Ａ５～Ｇ５が抽出結果表示欄（複数あれば続けてＡ６～〇５で表示）
抽出結果を修正し、反映ボタンを押せば”リスト”シートが更新される。

このようなマクロボタンを作りたいと考えています。

Sub 正方形長方形2_Click()
Sheets("検索").Rows("4:65536").ClearContents
　　Sheets("リスト").Select
　　Range("A2").Select
　　ActiveCell.CurrentRegion.AdvancedFilter _
　　　Action:=xlFilterCopy, _
　　　CriteriaRange:=Sheets("検索").Range("A1:E2"), _
　　　CopyToRange:=Sheets("検索").Range("A5:E65536"), _
　　　Unique:=False
　　Sheets("検索").Select
End Sub
これで抽出はうまくいくのですが、反映する際、
Dim cel As Range
If IsNumeric(Range("A5").Value) And Not IsEmpty(Range("A5").Value) Then
　　　　 Worksheets("リスト").Cells(Range("A5").Value, 1).Resize(1, 26).Value _
　　　　　　 = Range("A5:Z5").Value
　　 Else
　　　　 MsgBox "行番号が？？です"
　　 End If

これですると”リスト”シートが乱れてしまいます。
ご教授願います。

・ツリー全体表示

【284】Re:今更ながら。

ヒラタ - 17/6/14(水) 3:03 -


	引用なし

	パスワード

▼Jaka さん：
>誤字だらけやん。
>１０年たってから気づきました。
>すみません。
>他にもありそうな気が・・・。
>
>>　　PtWd = InputBox("ボタンに持たせる引数（数字のみ）を入力してください。", "引数入力", , XPos:=横位置, YPos:=縦位置)
>>　　If PtWd = "" Then
>>　　　 MsgBox "引数なし　終了"
>>　　　 Exit Sub
>>　　ElseIf Not IsNumeric(PasWd) Then
>>　　　 MsgBox "数字だけです。　終了"
>>　　　 Exit Sub
>>　　End If
>　
>
>ElseIf Not IsNumeric(PasWd) Then
>　　↓
>ElseIf Not IsNumeric(PtWd) Then

ご情報ありがとうございます。

yaplog.jp/hotbags/

・ツリー全体表示

【283】dowhileで複数条件を指定

山川 - 16/10/23(日) 14:03 -


	引用なし

	パスワード

dowhileで複数条件を指定をしても、効きません。

Do While Ws.Cells(I, 5).Value = False And UsrFrmQus.txtFil.Text <> Ws.Cells(I, 1).Value

dowhileではもともと複数条件指定できないのですか？

・ツリー全体表示

【282】入力規則リストにない値が入力できてしまう...

nanashi - 15/8/12(水) 11:57 -


	引用なし

	パスワード

リストによる入力規則で、「何も選ばない」を可能にするためリスト範囲の先頭に空白セルを含める場合がある。

この時、リスト範囲を入力規則を設定したセルと異なるワークシートにある名前で指定すると、エラー設定をしているにもかかわらず任意の値が入力できてしまう。
Excel 95-2003 形式では他のシートを直接参照する入力規則は利用できなかったため、名前で指定することが多かった。

エラー設定を有効にするには、Excel 2007 以降で =SheetName!Address と指定するか =INDIRECT("範囲の名前") とすればよい。

・ツリー全体表示

【281】今更ながら。

Jaka - 15/8/6(木) 12:25 -


	引用なし

	パスワード

誤字だらけやん。
１０年たってから気づきました。
すみません。
他にもありそうな気が・・・。

>　　PtWd = InputBox("ボタンに持たせる引数（数字のみ）を入力してください。", "引数入力", , XPos:=横位置, YPos:=縦位置)
>　　If PtWd = "" Then
>　　　 MsgBox "引数なし　終了"
>　　　 Exit Sub
>　　ElseIf Not IsNumeric(PasWd) Then
>　　　 MsgBox "数字だけです。　終了"
>　　　 Exit Sub
>　　End If

ElseIf Not IsNumeric(PasWd) Then
　　↓
ElseIf Not IsNumeric(PtWd) Then

・ツリー全体表示

【280】両隣のセルにコピーする

ショウ

- 15/8/1(土) 16:20 -


	引用なし

	パスワード

困っています。

VBAで変化させたい表は以下のようになっています。
C　　　X　Y　Z
　　　 2　4　4
　　　 3　5　5
計　　 5　9　3 　　
　　　　
空欄のC列に計と入力がある場合、計が入力されている同行のX列とZ列のセルに、真ん中のY列にある数字が入力されるようにしたいです。上の場合だと９が両隣に5にコピーされるようにしたいです。
また、この処理を450行目まで繰り返し行えるようにしたいです。

ちなみに考えたＶＢＡは
Sub ()

If Cells(i, "C").Value = "小計（kg）" Then
Cells(i, "X").Value = Cells(i, "Y").Value
Cells(i, "Z").Value = Cells(i, "Y").Value

For i = 1 To 450
Next i
End if
End Sub

このまま起動させると、アプリケーションの定義またはオブジェクションの定義のエラーとなります.

どのように書き換えれば良いでしょうか？
宜しくお願いします。

・ツリー全体表示

【279】accessのパフォーマンスの最適化について

マサリン - 15/3/6(金) 22:56 -


	引用なし

	パスワード

access 2010のパフォーマンスの最適化について教えてください。
パフォーマンスの最適化のフォームを解析中、このプロパティの設定値が値が長すぎます。のエラーが表示されます。
このエラーの解消抱負を教えてください。

・ツリー全体表示

【278】企業名を入れると企業番号が出るようにした...

りぃな - 15/3/6(金) 8:21 -


	引用なし

	パスワード

企業名を入れると企業番号が隣のセルに自動で出るようにしたいんですが、作り方が分りません。
アクセス初心者です。
イチイチコピペしてます。
宜しくお願いします。
解りやすく教えて下さい。

・ツリー全体表示

┃ ┃一覧表示 ┃ ┃ ┃ ┃

1 / 14 ﾍﾟｰｼﾞ

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free