Excel総合相談所 135
レス数が950を超えています。1000を超えると書き込みができなくなります。
【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
▼━関連スレ━━━━━━━━━━━━
前スレ
Excel総合相談所
https://find.5ch.net/search?q=excel
Excel VBA 質問スレ
https://find.5ch.net/search?q=excel+vba
【質問不可】Excel総合相談所スレの雑談・議論スレ
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80 >849さん
ありがとうございます。
実際のエクセルでのワークシート名は「学期別カリキュラム」です。なので指摘どおり、
yyyy = Str(monthProgram.Cells(9,1).Value)
↓
yyyy = Str("Worksheet("学期別カリキュラム").Cells(9,1).Value)
と記述してみますと、コンパイルエラーが出てしまいます。
yyyy = Str(monthProgram.Cells(9,1).Value)
だと、エラーも出力もないです。。
VBAは一筋縄ではいけないですねえええ。。 失礼しました。
間違えてました、以下のとおりだとエラーはでません。
×
yyyy = Str("Worksheet("学期別カリキュラム").Cells(9,1).Value)
○
yyyy = Str("Worksheets("学期別カリキュラム").Cells(9,1).Value)
ただ、エラーも出ませんが、出力もでません。。。 >>852
まだ書き間違いしてる
変な位置にダブルクォートが入ってるから、それでもエラーが出るはず
それはともかくStrを外してみ
yyyy = Worksheets("学期別カリキュラム").Cells(9,1).Value >>853
できた！！！！
ありがとうございます。
Strが問題だったのかなあ。 ご報告。。
ワークシートの書き方については、どちらでも行けました。
○
yyyy = Worksheets("学期別カリキュラム").Cells(9,1).Value
yyyy = monthProgram.Cells(9, 1).Value
Str()がダメだったみたいです。
×
yyyy = Str(Worksheet("学期別カリキュラム").Cells(11, 1).Value)
yyyy = Str(monthProgram.Cells(9, 1).Value)
皆さん。ありがとうございました。よい勉強をさせていただきました。 ダウンロードしてないからどんなデータが入ってるか確認してないけど、
Strを使って何も表示されないんだったら、数字じゃないデータが入ってんだから消すのが手っ取り早い
CStrを使っても同じこと 式の途中ならともかく、出力の直前でStrなんか使う必要ない
機能とか意味がわかってないだけでは 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013 Word2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可（優しめでお願いします）
セルにフォームコントロールで「チェックボックス」を張り付けたのですが、
セルのアドレスを指定して、チェックしている名前を取得できますか？
例えば
A3 ■鹿児島 □宮崎 ■大分 □佐賀
A4 □鹿児島 □宮崎 ■大分 □佐賀
A3の「鹿児島」、「大分」にチェック、A4で「大分」のみにチェック
してあったとして、
A3のセルのチェックを調べて「鹿児島」「大分」が返ってくる
A４のセルのチェックを調べて「大分」が返ってくる
のようなVBAの命令文があれば教えてください。 ActiveXコントロールならできますが
フォームコントロールはセルとリンクさせてそれを取得するしかできないんじゃないかな >>860
何だっけな。
一番近い位置にあるセルを取得する関数か何かがあったんだが、
思い出せない。 いや、その前に、チェックボックスに鹿児島って書いちゃダメなんか。 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
エクセルに挿入した画像の下にあるセルに数値を入力する方法はありますか？
具体的は測定器が5個写っている画像があって、測定器の数値を表示する部分のセルに数値を入力したいです
データ１は測定器A、Cの測定値を元に算出、データ2は測定器B、Dの測定値を元に算出・・・
といった感じの作業を電卓や暗算で行っていましたが、Win7機の入れ替えで端末が余ったので管理図置き場に設置しました
一応は画像の挿入を無しに測定器A、B、C、D、Eの測定値を入力して欲しいデータを表示させるようにはしましたが、
折角だから見たまんまで入力すればもっと分かりやすいのでは？と思い質問してみました LOOKUPで画像を表示させるってのがネットで検索できたんだけど、
オートシェイプも可能？ 名前の管理にINDIRECTでオートシェイプも画像同様表示可能 そうなんだ、活用してみる。
ありがとうございます。 今年の1月に
Microsoft Excel 2019(最新 永続版)|オンラインコード版|Windows10/mac対応|PC2台を購入して、今使ってるPCとMacBook Airにインストールしています。
PCの方を新調するのですが、ライセンスの移行は認められているらしく、手順はこう書かれています。
現在使っているPCのExcelをアンインストール。新しい方のPCにインストール。
これってアンインストールした事がトリガーになってるんでしょうか？ライセンス違反して3台に使うつもりはありませんが、PC音痴なので、いざアンインストールして新しいのに移行出来なかったら怖いなぁって思ってるんです。
アンインストールがトリガーじゃなければ新しいので起動成功を確認してからアンインストールしようと思うのですがどうなんですか？ >>869
多分、アンインストールではトリガーにならなくて、
MSサイトの自アカウント情報ページに開いて、
コンピュータ名等で登録されているインストール済デバイスの一覧から、
古いPCを消せば良いとか？
それで台数条件満たせば認証が通ってupdate可能になるのでは？ >>869
ライセンスの問題
アンインストールを先にしないとライセンス違反になる
それで何が起こるかは知らない 昔エクセル詳しくなりたいんでセミナーでも
受けたらいいですかって聞いたら
セミナーとか何時の時代の人間だよｗｗ
そんなもの時間と金の無駄だからｗｗｗ
ってめちゃくちゃ草生やされた；；；
でも今は、確かにセミナーは無いよなって思う
ネットでいくらでも調べれるし、自分で調べたほうが
ちゃんと身につくし、モチベーションも維持できるし
先輩の言ってること正しかったんだな… ,r´⌒ヽ,⌒ヽ,ヽ
(⌒)､ .人 λ＼､ .＿＿＿
＼. ＼ 、 ヽ.／ ー ー＼
|＼ ＼ ヽ.／ （ ●） （ ●）
| ＼ ＼ ／ （__人__） ＼ はいはい、どーもすみませんでした
|. ＼ | ｀ ⌒´ |
. |. |.＼_ノ＼ /
. |. | | ＼＿＿＿＿＿_／
. | ) .| ￣￣
. | | .|
| |.| .|
. | | .| .|
／ / / ヽ,
(＿_ノ ヽ、__つ オートフィルについてです
例えば
セルA1 =a!A1
セルB1 =b!A1
としたとき、
オートフィルで横に伸ばすと
セルC1 =a!C1
セルD1 =b!C1
こうなりますよね？
これを
セルC1 =a!B2
セルD1 =b!B2
こういう風にオートフィルしていくような手順ってありませんか？ vlookupで文字列とかで検索出来てないのはわかるんだけど
数値に直したあともセルにF2なり触らないと反応しないのって仕様なのか？ >>876
なんかエラー出るので外部のメモ帳サイト
http://plsk.net/asdasd
>>878
そう。これはめんどい仕様だな
数個ならF2とenter連打、
多いならどこかに1を入力して、コピーペーストで値＋乗算貼り付けで数値にできる 私の魅力を教えて下さい
何も無いってことは無いと思うんです 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ゲームの対応表について
同種族のキャラを集めて戦う、というゲームで対応表を作ろうと思っています。
キャラそれぞれに種族の名前を定義して種族の数を数えることはできました。
しかし、種族の数に対応させてキャラを表示させる方法が思いつきません。
何かいいアイデアはないでしょうか？
分かりにくい説明ですみません。
https://dotup.org/uploda/dotup.org1902048.xlsx.html >>885
学校の先生なら貴方に根気よく付き合ってくれるでしょう >>885
まぁ見てみれば分かるだろうと思ったら全然わからなくて草 >>887
同じくwwww
超余裕だろうと思ったが、全然わからんwwww
データベースのセルD9。
ジャイロコプターなんて言葉を聞いたのは、
じゃあまん探偵団魔麟組以降、30数年振りだわ。 質問させて下さい。
A1から下方向に会社名を入れていきます。
B1から下方向にA列に入力された会社名を参照したいです。
条件として重複するものは一つだけを参照して、B列は空欄を作らず、詰めて参照したいです。
空欄を作っていいのであれば出来ました。以下の数式です。
=IF(COUNTIF($A$1:A1,A1)=1,A1,"")
よろしくお願いします。 >>890
はい、重複データは飛ばないようにしたいです。
AB
11
22
27
73
34
35
3
4
1
5
文字と数値も同じだと思いますので、上の様な感じにしたいです。 >>891
A列がソートされてるなら簡単。
1行目に1を入れる。
2行目以降は、A列のセルの上下を比較して、値が変わったら、1つ上の行の値に+1する。
変わらなかったら、1つ上の値をそのまま参照。
あとはRow()を引数にしてMatchすれば、行番号が取れるので、Indexするだけ。 >>892
>>891をよく見ような
A列はソートされてない >>893
それならちょっと変えて。
CountIfで1になるやつだけ拾っていけばいいかな。
もちろん計算式が入っている行より上を参照するCountIfで。 ソートされていなくてもmatchの0でイケるじゃん >>889
むしろやり方がわからないのに、そんな発想が出たのが凄いわ。
出来ない人は、そもそも計算式で空白を詰められるなんて考えもしないと思うんだが。 皆様ありがとうございます。
indexとsmallとrowの３つを使えば、上に詰めて参照できる事が分かりました。
それを889で示した数式を入れ込めば出来そうです。 >>891
その元データに会社名ナンバーは作ってないの？ >>889
持ってる本にそういうの載っていたが会社に置きっぱなしだわ
なので自力で
B列を作業列として
B1に =IF(COUNTIF($A$1:A1,A1)=1,ROW())
C1に =IFERROR(INDEX(A:A,SMALL(B:B,ROW())),"")
もうちょっとシンプルになりそうな気もするが眠くて思いつかんわ >>891
Excel for Office 365
Office インサイダー:月次チャネル (対象限定)
シンプルになりそうな >>889
わたしがそういう作業でいつもやるパターンは
ピボットテーブルを挿入
行に会社名をドラッグ
順番が重要ならダメかな… 動的な対応が必要なくて結果が欲しいだけなら「重複の削除」ってコマンドがExcelのメニューの中にある
順番もちゃんと保持される >>898
はい、会社ナンバーとかはふってないです。会社名がどんどん増えていき、さらに重複もA列に出てくる感じです。
>>899さんのやり方がいいのかなと思いました。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 まあまあ
【4 VBAでの回答の可否】 可
ある列に、ひらがな、カタカナ、半角カタカナ のいずれかの文字列が
入っています。
これを全部半角カタカナに統一したいです。
あいう→ｱｲｳ
アイウ→ｱｲｳ
ｱｲｳ→ｱｲｳ
こんな感じです。
VBAで命令することにはどうすればいいでしょうか？ 計算式の=の後に@を入れた記憶がないのに、入っています。
同じファイルを別のPCで開くと入っていません。何か設定を変えてしまったのでしょうか？ 【1 OSの種類 .】Windows10
【2 Excelのバージョン 】Excel2016
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】否
B2:B101の範囲にデータの入力規則(リスト)を設定したいです。
既存は空で、例えばB2に山田、B3に佐藤と入れたら
山田と佐藤がプルダウンのリストに表示されるようにしたいのですが
どうすればよいでしょうか？
誤入力防止のためのプルダウンではなく入力補助としてのプルダウンを作るのが目的です。 すみません。追記です。
同じ名前がでてきた場合はリストに重複して出ないようにお願いします。 >>906
違ってたらスマン
多分ロータス123かなんかだったはず
・「ツール」 → 「オプション」 → 「移行」タブを開く
・「□計算方式を変更する」にチェックする。
この辺と主う
>>907
全然違う
もう少し考えて回答してあげて
>>908
データ データの入力規則
リスト
範囲
=$B$2:$B$100 「全然違う」とか牽制して「違ってたらごめん」だってさww >>911
テキトーに言って当たればラッキーぐらいでいいだろって事を正直に言ってるだけだよ
今更ロータスの事なんて誰得
それすらわからない無能はもう少し勉強しよう
あと>>907はありえないと断定して良い 試したが環境では
「計算方式を変更する」では再現も治りもしない
なおO365版での設定位置は
ファイル→オプション→詳細説明→Lotusとの互換性設定の下 【1 OSの種類 .】 Windows７
【2 Excelのバージョン 】 Excel２０１３
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 コピペだけできます
シート集計表のＣ列の２行目以降が「集計」で無い行は、行ごと削除したいので
下のコードを使っているのですが、３０００行位までは実行されるのですが
１０万行以上の件数があると「型が違います」というメッセージがでて、処理が実行できません。
件数が多い場合のコードを教えてください。
Sheets("集計表").Select
For r = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(r, "C") <> "集計" Then Rows(r & ":" & r).Delete
Next >>916
Dim r As Long
For r = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(r, "C") <> "集計" Then Rows(r & ":" & r).Delete
Next
でも同じく「型が一致しません」になります。 エクセルを手軽に本とかで学びたいと考えてますが、オススメのノートパソコンってありますか？？
予算は10万前後で出来るだけ軽いものがいいです。 >>917
C列に入ってるのが文字列じゃなくて数式だと「型が一致しません」になることがある
これ試してみて
If Cells(r, "C").Text <> "集計" Then >>918
あんまり軽くはないけど予算10万ならASUS VivoBook 15 X512FA >>920
>>921
ありがとう、さがしてみるわ。 >>919
ありがとうございます。できましたm(__)m 例えばセルＡ１に１：００：００と入力したらセルＢ１に1時間5秒後の時間が表示されるにはどのような式を書けばいいでしょうか？ やりたいことがちょっと複雑なのでvbaスレで聞いてみます
質問取り下げます >>924
ありがとうございます。
Office Insiderに登録しているPCだと発生するのですね。 excel表↓
__|______A_______|___B____|___C____|___D____|___E____|___F____|___G____|___H____
1| | | | | | | |
2| | |夏季限定スイーツ売上一覧表| | |
3| | | | | | | |
4|品名 |単価 |６月 |７月 |８月 |売上金額 |売上比率 |備考
5|とろとろプリン | 300 | 120 | 155 | 140 | 124,500 | 18.4 |
6|抹茶あんみつ | 450 | 233 | 107 | 111 | 202,950 | 29.9 |○
7|メロンシュー | 320 | 94 | 88 | 90 | 87,040 | 12.8 |
8|フルーツアイス | 250 | 124 | 156 | 224 | 126,000 | 18.6 |
9|はちみつ金時 | 380 | 130 | 122 | 109 | 137,180 | 20.2 |○
10| |合計 | 701 | 628 | 674 | 677,670 | |
11| |平均 | 140 | 126 | 135 | 135,534 | |
12| | | | | | | |
13|最大個数 | 233 | | | | | | セル番地(F10)について、次の問1から問3を解答しなさい。
問1 セル番地(F10)を複合参照で列を固定した答えを記入しなさい。
問2 セル番地(F10)を複合参照で行を固定した答えを記入しなさい。
問3 セル番地(F10)を絶対参照で列と行を固定した答えを記入しなさい。
という問題があったのですが
1,SUM($F5:$F9) 2,SUM(F$5:F$9) 3,SUM($F$5:$F$9)
と解答したら全て間違えてました; 全く答えが分からないので教えて下さい。
表ズレてますが左からA~Hです。 >>931
教えてもらったのですが間違えた答えでしたので…(^^;
F10には売上金額677,670とあります。セル番地を絶対参照で固定して計算する際に合計の値がずれないようにします
と書いてあります >>929>>932
前回教えた奴は合っている
どう違ってたのか言え >>933
バツとだけ書かれて返却されてたので分からないです…。
他の問題は全て正解でした。
完了期限はまだ先みたいなので大丈夫みたいです。 >>935
どう見ても合っているから教師が間違っている
これ以上の回答はないから教師に確認しろ 929の表がズレてたので・・・画像にしてあげますexcelの表はこちらで↓
https://gyazo.com/6bbc43b5a4346db69404d52e985b0244
処理条件は↓
https://gyazo.com/faf8012dcb22cdd442c687663f1e7524
問題は↓
セル番地(F10)について、次の問1から問3を解答しなさい。
問1 セル番地(F10)を複合参照で列を固定した答えを記入しなさい。
問2 セル番地(F10)を複合参照で行を固定した答えを記入しなさい。
問3 セル番地(F10)を絶対参照で列と行を固定した答えを記入しなさい。
なのですけど>>930に書いた解答は全て間違えてました・・・。
今度ははっきり見えるように画像を撮ってきたので何卒解答お願いいたしますm(_ _)m 死ぬほど役に経つけどそもそも使えない会社やシステムが整っている大企業だと出番が無いこともあるからその辺りは気をつけないと行けない >>941
レスサンキュー。
使いこなせる？マスターするのに時間かかります？ 使いこなせる？
こんな事聞く奴はアホしかいないから
アホには無理、死んで VBAでの質問です。よろしくお願いいたします。
あるシートに、cmdPrint1からcmdPrint50という名前のコマンドボタンが50個あります。
これをクリックしたときの動作はすべて同じプロシージャで、引数が違うだけなんです。
Private Sub myPrint( no as integer)
’略
end sub
各コマンドボタンは
Private Sub cmdPrint1_Click()
call myPrint(1)
End Sub
という感じなんですが、こういう場合、50個のコマンドボタンすべてについて、クリックイベントを
書かないとだめなんでしょうか？
何か、まとめて書いちゃう方法ってあるのでしょうか？ >>943
日々、「自分の仕事をいかに減らせるか？」を考え続け、勉強を続けるが重要
そして、ダメと分かったら作りなおす度胸が必要
極めれば多少営業が無茶言ってきても対抗できるし、
毎日超暇になる
>>944
お前みたいな無能が何のために生まれてくるのか良く分からんが、
日本っていい国だな >>945
確か一ヶ月ぐらい前にvbaスレで似たような事をやってたな
・activeXボタンならボタンのcaptionを取れるから、それで分岐できる。ただしactiveXは時代錯誤な上に使えないPCもある
・フォームのボタンはcaptionを取れないから無理。this.captionが出来ない >>946
根拠無しに無能とか決めるほうが無能じゃね？
何かあんの？言ってみろよ >>948
自分1人が頑張ることには限度がある
自分の能力が極まった上で、他者を育てる事で始めて有能となる
その効率は極まったお前の数倍となる
相手の素性も知らずに叩き潰す事しか考えないお前は間違いなく無能だ、断言する
一応フォローすると、お前自信が頑張ってる、能力がある事は伝わる
もう少しいたわりを持ち、他者を成長させる礎となれ
それは大変苦しみを伴う作業だが、歩んだ道は間違い無かったと、俺はそう思ったよ >>944
すみませんでした！けどVBAの魅力を知りたいだけなんです… >>946
ありがとう！少しずつ頑張って検索して学んでいきます！ レス数が950を超えています。1000を超えると書き込みができなくなります。
