Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

130 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【79881】keycodeのエビデンスが取りたい

まぎ - 18/5/17(木) 17:11 -


	引用なし

	パスワード

keydownイベントなどに
使用するKeyCode定数なんですが
実際の動きとして、入れた値がなぜこの番号で動くのかとかと
返された値でどのような処理がなされているのか知りたいのですが
そのような仕組みなどが記載されているサイトが見つけられなくて困っています。
VBE上でそれを確かめる方法等ありましたら教えていただきたいです。

・ツリー全体表示


	【79880】BALENCIAGA

BALENCIAGA - 18/5/14(月) 14:07 -


	引用なし

	パスワード

右腿にブランドロゴを配した
　www.keevoo.com/brand-489.html　 BALENCIAGA 　ジョガーパンツ。柔らかな素材はパジャマとしても部屋着としても最適なアイテム。ハリ感と弾性のある独特の生地で立体感のある仕上がりとなっています。適度な厚みで防寒性も優れています。すっきりとしたスマートなシルエットが特長。スニーカーやTシャツを合わせたカジュアルスタイルはもちろん、キレイめのジャケットやヒールを合わせてトレンドのスポーツミックススタイルを楽しむのもおすすめです。　www.keevoo.com/ 　

・ツリー全体表示


	【79879】Re:型が一致しません

ぼう - 18/5/10(木) 1:07 -


	引用なし

	パスワード

返信が遅れてしまい申し訳ありません。
手元に確認できる端末がないのですが、それでできそうな気がするので後日やってみようと思います。
ありがとうございます。

・ツリー全体表示


	【79878】Re:型が一致しません

γ - 18/5/9(水) 21:46 -


	引用なし

	パスワード

　　Dim stImageShape As PowerPoint.Shape
としたらどうですか？ということですがねえ。
返事くらいするものです。

・ツリー全体表示


	【79877】Re:アプリケーションエラー

pen - 18/5/8(火) 17:37 -


	引用なし

	パスワード

▼BJ さん：
>まず、
>
>gyo = “=len(A” & hensu1 & “)-len(substitute(A” & hensu1 & “),char(10),””””))+1”
>
>上の
>=len の=を取って、セルに入った文字が数式として成り立つのか確認して見る。

コメントあいがとうございます。
解決しました。
先に関数をエクセル上で作ってから、変数に置き換えて書いていたのですが、
,CHAR(10)の前にある、「)」が一つ多いことに気がつけました。
私の凡ミスでした。
ありがとうございました！

・ツリー全体表示


	【79876】Re:アプリケーションエラー

BJ - 18/5/8(火) 17:14 -


	引用なし

	パスワード

まず、

gyo = “=len(A” & hensu1 & “)-len(substitute(A” & hensu1 & “),char(10),””””))+1”

上の
=len の=を取って、セルに入った文字が数式として成り立つのか確認して見る。

・ツリー全体表示


	【79875】Re:アプリケーションエラー

pen - 18/5/8(火) 16:58 -


	引用なし

	パスワード

▼pen さん：
追記です。
行数取得は、セルの高さ指定に使いたいので、
もしgyoという変数に、該当セルAhensu1の行数(改行の回数プラス1)を
格納できる他の方法があれば、Len関数にはこだわりません。

行数を確認したいセルは、結合されており、自動調整はできないので、
行数×高さ(自動調整より少し余裕も持ちたい)でセル高さを指定する予定です。

よろしくお願いいたします。

>下記の実行でエラーが起こります。
>単純なミスかもしれないと思い、色々試してみたのですが動かず、
>混乱してきてしまったので、ご教示いただけますでしょうか。
>
>［やりたいこと］
>セル内の行数を別セルに記載したい。
>変数でループさせている中での処理の一部です。
>
>あるリストから、順にフォーマットに必要項目の転記や計算などをしていて、
>転記した文字列があるセルの改行数+1で行数を取得。
>
>例
>A列、変数で取得した行(hensu1)にリストから転記
>B列の同じ行に上記セルの行数(改行数＋1)を関数で取得
>
>dim gyo as string
>dim　hensu1 as long
>
>hensu1=range(a1).row
>
>gyo = “=len(A” & hensu1 & “)-len(substitute(A” & hensu1 & “),char(10),””””))+1”
>
>Range(“B” & hensu1 & “”).Formula=gyo
>
>最後のところでエラーになります。
>gyoを確認すると、入れたい数式はgyoに格納できているように思います。
>
>とっても長い構文の中の一部で分かりにくい点あるかもしれません。
>途中、大文字で書いている部分が小文字になってしまっているところがありますがご了承ください。
>よろしくお願いいたします。

・ツリー全体表示


	【79874】アプリケーションエラー

pen - 18/5/8(火) 16:46 -


	引用なし

	パスワード

下記の実行でエラーが起こります。
単純なミスかもしれないと思い、色々試してみたのですが動かず、
混乱してきてしまったので、ご教示いただけますでしょうか。

［やりたいこと］
セル内の行数を別セルに記載したい。
変数でループさせている中での処理の一部です。

あるリストから、順にフォーマットに必要項目の転記や計算などをしていて、
転記した文字列があるセルの改行数+1で行数を取得。

例
A列、変数で取得した行(hensu1)にリストから転記
B列の同じ行に上記セルの行数(改行数＋1)を関数で取得

dim gyo as string
dim　hensu1 as long

hensu1=range(a1).row

gyo = “=len(A” & hensu1 & “)-len(substitute(A” & hensu1 & “),char(10),””””))+1”

Range(“B” & hensu1 & “”).Formula=gyo

最後のところでエラーになります。
gyoを確認すると、入れたい数式はgyoに格納できているように思います。

とっても長い構文の中の一部で分かりにくい点あるかもしれません。
途中、大文字で書いている部分が小文字になってしまっているところがありますがご了承ください。
よろしくお願いいたします。

・ツリー全体表示


	【79873】Re:型が一致しません

γ - 18/5/7(月) 21:08 -


	引用なし

	パスワード

部分的なコードなので詳細は不明ですが、
shapeとするとそれはExcelのshapeではないですか？

・ツリー全体表示


	【79872】型が一致しません

bou

- 18/5/7(月) 12:50 -


	引用なし

	パスワード

Excel VBAでパワーポイントを開いて画像を挿入するプログラムを作っています。それを実行したときに、「型が一致しません」というエラーが出ます。しかしどこを見ても型が一致しない部分が見つからないので、どこがおかしいか教えていただきたいです（そのコードは後述します）。コードを参考にしたサイトは次のURLのところです。ｈｔｔｐ://color-chips.net/pencils/archives/2014/0805_220036.html
これをパワーポイントVBAコピペしたときはちゃんと実行できました。Excel VBAにコピペして実行しようとしたときはActiveXが使えないという類のエラーが出ました。
前述の型不一致エラーが出るコードは以下です。上のものをコピペして一部改変したものです。
Set stImageShape = ppPrs.Slides(tsIndex(num)).Shapes.AddPicture( _
　　　　Filename:=objFile.Path, _
　　　　LinkToFile:=msoFalse, _
　　　　SaveWithDocument:=msoTrue, _
　　　　Left:=0, _
　　　　Top:=0)
(stImageSapeはshape、ppPrsはPowerPoint.Presentation、tsIndex()とnumはInteger、objFileはObjectとして宣言しています。

・ツリー全体表示


	【79871】Re:エラーメッセージ

暇つぶし - 18/5/3(木) 11:16 -


	引用なし

	パスワード

暇つぶしにきている奴です。

▼Err さん：
>結合セルに適用したいのですが、結合セルにすると
>結合セルの左端以外が空白と判定されます。

そこまで分かっているなら、
「Excel 結合セル値」
をキーワードに検索すれば目的のコードはすぐ見つかると思いますよ。

ht　tp://ja.uncyclopedia.info/wiki/%E3%82%B0%E3%82%B0%E3%83%AC%E3%82%AB%E3%82%B9

・ツリー全体表示


	【79870】Re:エラーメッセージ

www - 18/5/2(水) 21:11 -


	引用なし

	パスワード

▼Err さん：

>わからないから聞いてるんですけど、何か？

ワロタwww
確かにそうだwww
ここにいる回答者？の方がマナーがないねー
えらそうなこと言ってる割にコードも提示しないwww
提示しないんじゃなくてできないだけか？w
暇つぶしに来てる奴ばっかりwww
かまってちゃんか？www

・ツリー全体表示


	【79869】Re:エラーメッセージ

よろずや - 18/5/2(水) 16:16 -


	引用なし

	パスワード

▼Err さん：
>▼よろずやさん：
>
>>そこまで分かっているなら、そこを外せばいいだけですが、何か？
>
>わからないから聞いてるんですけど、何か？
ステップ実行は、やってみましたか？
どこのステップで判定が期待に合わないのか？

・ツリー全体表示


	【79868】Re:エラーメッセージ

Err - 18/5/2(水) 15:36 -


	引用なし

	パスワード

▼よろずやさん：

>そこまで分かっているなら、そこを外せばいいだけですが、何か？

わからないから聞いてるんですけど、何か？

・ツリー全体表示


	【79867】Re:セルの値に対応した文字

マナ - 18/5/2(水) 14:45 -


	引用なし

	パスワード

▼でーすけさん：

数式の質問でしょうか？

・ツリー全体表示


	【79866】セルの値に対応した文字

でーすけ - 18/5/2(水) 14:33 -


	引用なし

	パスワード

A1：A500にいろいろな文字が入っています。
その中で特定の文字列の時にB1：B500へ決まった文字を入れたいと思っています。
Vlookupの様に複数検索するのではなく、2種類のみです。

例：りんごの時だけB列に「商店A」を入力、
　　すいかの時だけB列に「要点B」を入力、
　　それ以外は何もしない。

　A　　　　B
りんご　　商店A
みかん
なし
りんご　　商店A
すいか　　商店B
メロン
りんご　　商店A
かき

以上、よろしくお願いいたします。

・ツリー全体表示


	【79865】Re:エラーメッセージ

よろずや - 18/5/2(水) 13:01 -


	引用なし

	パスワード

▼Err さん：
>結合セルの左端以外が空白と判定されます。
Excelの仕様です。

そこまで分かっているなら、そこを外せばいいだけですが、何か？

・ツリー全体表示


	【79864】Re:エラーメッセージ

Err - 18/5/2(水) 12:20 -


	引用なし

	パスワード

▼γ さん：
>不明な点を具体的に質問して下さい。
>
>すでにコードがあるようですが、これはどのようなものですか？

隣のセルが空白なら先に入力を促すマクロです。

>あなたが作ったものなら、修正は可能だと思いますが。

私は、作っておりません。

>・エラーが出るなら、エラーメッセージを示してください。

エラーメッセージは、出ていません。

>・想定と異なるなら、想定と現実をそれぞれ具体的に説明してください。

結合セルに適用したいのですが、結合セルにすると
結合セルの左端以外が空白と判定されます。

・ツリー全体表示


	【79863】Re:エラーメッセージ

γ - 18/5/1(火) 21:25 -


	引用なし

	パスワード

不明な点を具体的に質問して下さい。

すでにコードがあるようですが、これはどのようなものですか？
あなたが作ったものなら、修正は可能だと思いますが。
・エラーが出るなら、エラーメッセージを示してください。
・想定と異なるなら、想定と現実をそれぞれ具体的に説明してください。

・ツリー全体表示


	【79862】Re:Excel VBAによるpowerpointの操作につ...

よろずや - 18/5/1(火) 15:48 -


	引用なし

	パスワード

▼ぼうさん：
>他に何か考えられることはありませんかね、、

あとは、Mac版のVBAがどこまで互換性を持っているかだと思います。
どっかのページで、Office for Mac版のVBAは保証しないと書いてあったように記憶しています。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

130 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free