ขนาดวิดีโอ: 1280 X 720853 X 480640 X 360
แสดงแผงควบคุมโปรแกรมเล่น
เล่นอัตโนมัติ
เล่นใหม่
仕事で使えそうな内容で、非常に勉強になりました。早速試してみます。
よしおさんコメントありがとうございます！お仕事で活かしていただけることが一番うれしいです(^^)今後もお役に立てる情報をお届けできるよう頑張ります！
何とか出来ました！ありがとうございます！
御手洗団子さんコメントありがとうございます(^^)回答する前に解決されたみたいですみません。コードが動かなかったとのことでしたが、コードの記述を変更されて解決されたのでしょうか。どちらにしても動いたようでよかったです^^今後もお役に立てる情報を発信していきますのでよろしくお願いいたします。
@@メンタエクセル 様ありがとうございます。いえいえ、私がはじめたばかりのような者なのでお手数をおかけいたしました。こちらこそこれからもよろしくお願いいたします。
メンタエクセルさんのコードをコピーして職場で使用しています。めっちゃ便利です！！！ありがとうございます。とても役立っています（＾＾）
まさひろさんご報告とても嬉しいです♪是非是非ご活用ください😊
以前、コメントを記入したものです。VBAの１からスタートし、ようやく最新のこの動画までたどり着きました！VBAを勉強し始めて2か月半、自分でも驚くほどマクロを組めるようになりました。もちろん、まだまだまだ超初心者レベルですが、最初の全然わからなかった自分を思うとここまでできるようになった！と、感動しています。たくやさんの動画がなかったら、これほど短期に理解を深めることができませんでした。本当にありがとうございます。初心者の「つまづきポイント」をとても丁寧に解説くださるのが、他の動画と違ってとても分かりやすいです。VBAが最後までいったので、次は関数を最初から見て勉強します！これからも動画のアップ、楽しみにしております。今後とも宜しくお願い致します！
田奈加幸子さんコメントありがとうございます😊正直とても嬉しいコメントで感動しました。2ヶ月という短期間で成果を出されていることで、初学者の方のお役に立てているという実感が湧いて、TH-camを続けていて良かったと心から思えました^ ^ありがとうございます。これからももっと色々な情報をお届けしていけるよう頑張ります！
２ヶ月半ですごいですねー自分は一度挫折して１年半でようやく実務でなんとか使えるようになってきました。お互い頑張りましょー
エクセル苦手なので助かります！チャンネル登録させていただきました。勉強させてください。
げんきさんご登録ありがとうございます😊お役に立てれば嬉しいです。げんきさんの動画も楽しみにしております！今後ともよろしくお願いいたします。
今までシートの一覧からシートへ移動してましたが、こちらの動画を参考に作ってみますね。
chibi-chibiさんコメントありがとうございます！右クリックから一覧選択も可能ですよね！どちらもためしていただいて、どちらかやりやすい方でシートへのジャンプを行っていただれけばと思います(^^)
目次は作成できて、各シートにも戻りの書式は表示されましたが、実際には参照が正しくありません、となってしまいます、原因はなにがかんがえられますか？
いつも楽しく拝見しています。質問ですが、リンク設定コードで、カテゴリーｼｰﾄに帰るコードの所でエラーが出ます、実効時エラー、アプリケーション、又はオブジェクトのエラーと出ます。ｺｰﾄﾞはｺﾋﾟﾍﾟしたつもりですが？TextToDisplay:="←『" & firstShname &"』ｼｰﾄに戻る " このコードの所で発生します。=からの右の入力はひらがなと半角英数で入力しています。←と鍵カッコ、シートへ戻るはひらがな、其れ以外は英数入力です。何が原因なのか教えて下さい。
いつもありがとうございます！これいいですね。早速使います。
Masao Tanakaさんありがとうございます！是非ご活用くださいませ😊
SubAddress:="'" & shName & "'!A1",そのページのA1にリンクしますが、例えばそのシートの最後の行にリンクしたいときにはどのように書いたらよろしいでしょうか。SubAddress:="'" & shName & "'!A & cells(rows. count,1). end(xlUp)" を書いたら、FirstShNameの最終行になりました。
cellsの前が省略されているので、自動的にwithステートメントのFirstShNameのシートが指定されているからじゃないかなcellsの前にWorksheets(shName).を入れてみてはどうかな
firstShName = "カテゴリー"のところfirstShName = Worksheets(1).Nameではダメなんでしょうか？
19:25ぐらいで「Hyperlinks.Deleteではリンク機能のみ削除され、青文字やアンダーラインは残る」と説明されていますが、実行すると「黒文字のアンダーラインなし」になりました。それでもColorIndexやUnderlineのコードは必要なのでしょうか。
fpcudiyさんコメントいただきありがとうございます😊バージョンによっては書式もちゃんとリセットされるんですね！ちなみにExcelのバージョンは何をご使用されてますでしょうか？もしその状態であれば色やアンダーラインのコードは不要です😌
@@メンタエクセル さん、Office365Soloを使用しています。
今日 コメントを送信した おです、矢印を消したら出来ました。
ハイパーリンク全削除のコードを打ち込み実行しましたが、「subまたはfunctionが定義されていません」とエラーになりました。コードを何度みても原因がわかりません。困っています。コードは、以下のとおりです。Sub ハイパーリンク全削除() Dim i As Long For i = 2 To Worksheets.Count Workseets(i).Hyperlinks.Delete Workseets(i).Range("A1").ClearContents Next i With Workseets("カテゴリー") .Hyperlinks.Delete With .Range(.Cells(4, 2), .Cells(Rows.Count, 2)) .ClearContents .Font.ColorIndex = 1 .Font.Underline = False End With End With End Sub
各シートから戻るハイパーリンクまで作れば、操作が効率化されますねー多くのシートExcelを扱いに困らなそうです
毎月の月報ファイルに活用できそうです。大変参考になります。今仕事中で悩んでいるFormulaメソッドについて是非ご教授いただければ幸いです。参照先のブック名とシート名が変数の場合、どう書けばよろしいでしょうか？mywsはmy収集事績ブックのシート、wsは別ブックのシート二つのブックが開いている状態で下記コードを書いたが、エラーがでました。ws.range("C6:C" & n).Formula = _ "=IFERROR(SUMIF('[" & my収集実績.Name & "]" & myws.Name & "'!$C:$C, A6,'[" & my収集実績.Name & "]" & myws.Name & "'!$H:$H,),"""")"何かいけないでしょうか？IFERRPRとSUMIF関数の使い方は検証しました、間違いないです。
仕事で使えそうな内容で、非常に勉強になりました。
早速試してみます。
よしおさん
コメントありがとうございます！
お仕事で活かしていただけることが一番うれしいです(^^)
今後もお役に立てる情報をお届けできるよう頑張ります！
何とか出来ました！ありがとうございます！
御手洗団子さん
コメントありがとうございます(^^)
回答する前に解決されたみたいですみません。
コードが動かなかったとのことでしたが、コードの記述を変更されて解決されたのでしょうか。
どちらにしても動いたようでよかったです^^
今後もお役に立てる情報を発信していきますのでよろしくお願いいたします。
@@メンタエクセル 様
ありがとうございます。いえいえ、私がはじめたばかりのような者なのでお手数をおかけいたしました。こちらこそこれからもよろしくお願いいたします。
メンタエクセルさんのコードをコピーして職場で使用しています。めっちゃ便利です！！！
ありがとうございます。とても役立っています（＾＾）
まさひろさん
ご報告とても嬉しいです♪
是非是非ご活用ください😊
以前、コメントを記入したものです。
VBAの１からスタートし、ようやく最新のこの動画までたどり着きました！
VBAを勉強し始めて2か月半、自分でも驚くほどマクロを組めるようになりました。
もちろん、まだまだまだ超初心者レベルですが、最初の全然わからなかった自分を思うとここまでできるようになった！と、感動しています。
たくやさんの動画がなかったら、これほど短期に理解を深めることができませんでした。
本当にありがとうございます。
初心者の「つまづきポイント」をとても丁寧に解説くださるのが、他の動画と違ってとても分かりやすいです。
VBAが最後までいったので、次は関数を最初から見て勉強します！
これからも動画のアップ、楽しみにしております。
今後とも宜しくお願い致します！
田奈加幸子さん
コメントありがとうございます😊
正直とても嬉しいコメントで感動しました。
2ヶ月という短期間で成果を出されていることで、初学者の方のお役に立てているという実感が湧いて、TH-camを続けていて良かったと心から思えました^ ^
ありがとうございます。
これからももっと色々な情報をお届けしていけるよう頑張ります！
２ヶ月半ですごいですねー
自分は一度挫折して１年半でようやく実務でなんとか使えるようになってきました。
お互い頑張りましょー
エクセル苦手なので助かります！
チャンネル登録させていただきました。
勉強させてください。
げんきさん
ご登録ありがとうございます😊
お役に立てれば嬉しいです。
げんきさんの動画も楽しみにしております！今後ともよろしくお願いいたします。
今までシートの一覧からシートへ
移動してましたが、こちらの動画を
参考に作ってみますね。
chibi-chibiさん
コメントありがとうございます！
右クリックから一覧選択も可能ですよね！
どちらもためしていただいて、どちらかやりやすい方でシートへのジャンプを行っていただれけばと思います(^^)
目次は作成できて、各シートにも戻りの書式は表示されましたが、実際には参照が正しくありません、となってしまいます、原因はなにがかんがえられますか？
いつも楽しく拝見しています。質問ですが、リンク設定コードで、カテゴリーｼｰﾄに帰るコードの所でエラーが出ます、実効時エラー、アプリケーション、又はオブジェクトのエラーと出ます。ｺｰﾄﾞはｺﾋﾟﾍﾟしたつもりですが？
TextToDisplay:="←『" & firstShname &"』ｼｰﾄに戻る " このコードの所で発生します。
=からの右の入力はひらがなと半角英数で入力しています。←と鍵カッコ、シートへ戻るはひらがな、其れ以外は英数入力です。
何が原因なのか教えて下さい。
いつもありがとうございます！これいいですね。早速使います。
Masao Tanakaさん
ありがとうございます！
是非ご活用くださいませ😊
SubAddress:="'" & shName & "'!A1",そのページのA1にリンクしますが、例えばそのシートの最後の行にリンクしたいときには
どのように書いたらよろしいでしょうか。SubAddress:="'" & shName & "'!A & cells(rows. count,1). end(xlUp)" を書いたら、FirstShNameの最終行になりました。
cellsの前が省略されているので、自動的にwithステートメントのFirstShNameのシートが指定されているからじゃないかな
cellsの前にWorksheets(shName).を入れてみてはどうかな
firstShName = "カテゴリー"のところfirstShName = Worksheets(1).Nameではダメなんでしょうか？
19:25ぐらいで「Hyperlinks.Deleteではリンク機能のみ削除され、青文字やアンダーラインは残る」と説明されていますが、実行すると「黒文字のアンダーラインなし」になりました。それでもColorIndexやUnderlineのコードは必要なのでしょうか。
fpcudiyさん
コメントいただきありがとうございます😊
バージョンによっては書式もちゃんとリセットされるんですね！
ちなみにExcelのバージョンは何をご使用されてますでしょうか？
もしその状態であれば色やアンダーラインのコードは不要です😌
@@メンタエクセル さん、Office365Soloを使用しています。
今日 コメントを送信した おです、
矢印を消したら出来ました。
ハイパーリンク全削除のコードを打ち込み実行しましたが、「subまたはfunctionが定義されていません」とエラーになりました。コードを何度みても
原因がわかりません。困っています。コードは、以下のとおりです。
Sub ハイパーリンク全削除()
Dim i As Long
For i = 2 To Worksheets.Count
Workseets(i).Hyperlinks.Delete
Workseets(i).Range("A1").ClearContents
Next i
With Workseets("カテゴリー")
.Hyperlinks.Delete
With .Range(.Cells(4, 2), .Cells(Rows.Count, 2))
.ClearContents
.Font.ColorIndex = 1
.Font.Underline = False
End With
End With
End Sub
各シートから戻るハイパーリンクまで作れば、操作が効率化されますねー
多くのシートExcelを扱いに困らなそうです
毎月の月報ファイルに活用できそうです。大変参考になります。
今仕事中で悩んでいるFormulaメソッドについて是非ご教授いただければ幸いです。
参照先のブック名とシート名が変数の場合、どう書けばよろしいでしょうか？
mywsはmy収集事績ブックのシート、wsは別ブックのシート
二つのブックが開いている状態で下記コードを書いたが、エラーがでました。
ws.range("C6:C" & n).Formula = _
"=IFERROR(SUMIF('[" & my収集実績.Name & "]" & myws.Name & "'!$C:$C, A6,'[" & my収集実績.Name & "]" & myws.Name & "'!$H:$H,),"""")"
何かいけないでしょうか？IFERRPRとSUMIF関数の使い方は検証しました、間違いないです。